Дан массив А(6). Определите количество положительных элементов. Паскаль.

Question

Дан массив А(6). Определите количество положительных элементов. Паскаль.

Answer 1

Var a:array[1..6] of integer;
k,i:integer;
begin
k:=0;
for i:=1 to 6 do
begin
writeln('Введите элемент массива');
readln(a[i]);
if a[i]>0 then k:=k+1;
end;
writeln('Количество положительных элементов : ',k);
end.