Дан массив состоящий из 10 элементов заполнить массив целых чисел найти сумму, количество элементов положительных и кратных три.

var

i, a, b:integer;

x: array[1 ... 10] of integer;

begin

a:=0;

b:=0;

for i:=1 to 10 do

begin

begin

x[i]:=random (21) - 10;

write (x[i]:4) ;

end;

if (x[i]>=0) and (x[i] mod 3=0) then

b:=b+1;

end;

writeln;

write ('количество элементов положительных и кратных три = ', b) ;

writeln;

for i:=1 to 10 do

begin

a:=a+x[i];

end;

write ('суммa = ', a) ;

end.