1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму...

Question

1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму четных элементов массива. Выведите на экран исходный массив и полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.

Answer 1

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.