Question

составьте программу которая запрашивает значения элементов одномерного числового массива а, стоящего из 10 элементов,формирует и выводит на экран в строку данный массив. Найти сумму неположительных элементов массива,количество элементов кратных 3, произведение элементов,стоящих на четных местах

Answer 1

program z1;
uses crt;
var m: array[1..10] of integer;
i,a,b,c:integer;
begin
for i:=1 to 10 do
readln(m[i]);
writeln;
a:=0;
b:=0;
c:=1;
for i:=1 to 10 do
begin
 if m[i]<=0 then a:=a+m[i];
if m[i] mod 3 = 0 then b:=b+1;
if i mod 2 = 0 then c:=c*m[i];
end;
writeln(Сумма отриц'',a);
writeln(кратные 3'',b);
writeln(произв'',c)
end.