Question

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

Answer 1

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.