Question

Сформировать целочисленный массив 20 элементов.
1) Подсчитать количество положительных элементов.
2) Подсчитать сумму нечетных элементов.

Answer 1

var
a:array[1..20] of integer;
b,c,i:integer; //b положительные c сумма нечетных i для цикла
begin
b:=0;
c:=0;
for i:=1 to 20 do begin
readln(a[i]);
if a[i]>0 then b:=b+1;
if a[i] mod 2<>0 then c:=c+a[i];
end;
writeln(b);
writeln(c);
end.