Дан массив заданный случайным образом. Найти s и p элементов, кратных 3-ём и положительных, кол-во всех остальных.

Const

n=10;

var a:array[1 ... n] of integer;

s, p, k, i:integer;

begin

s:=0;

p:=1;

randomize;

for i:=1 to n do begin

a[i]:=Random (100) ;

if (a[i]>0) and (a[i] mod 3 = 0) then k:=k+1;

p:=p*a[i];

s:=s+a[i];

write (a[i], ' ')

end;

writeln ('Сумма = ', s) ;

writeln ('Произведение = ', p) ;

writeln ('Количество положительных и кратных 3-м = ', k) ;

end.