1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму четных элементов массива. Выведите на экран исходный массив и полученную сумму.2. Дан массив В(n). Определите произведение элементов, крат...
1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму четных элементов массива. Выведите на экран исходный массив и полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
Гость
Ответ(ы) на вопрос:
Гость1.
Const N = 10;
Var i,S:integer; m:array [1..N] of integer;
Begin
randomize; S:=0;
for i:=1 to N do begin
m[i]:= random(201)-100;
writeln(m[i]);
end;
for i:=1 to N do
if m[i] mod 2 = 0 then
S:=S+m[i];
writeln('Summa = ',S);
readln;
end.
2.
Const N = 100;
Var i,p:integer; B:array [1..N] of integer;
Begin
randomize; p:=0;
for i:=1 to N do begin
B[i]:= random(201)-100;
writeln(B[i]);
end;
for i:=1 to N do
if B[i] mod 3 = 0 then
p:=p*B[i];
writeln('Proiz = ',p);
readln;
end.
Не нашли ответ?
Похожие вопросы