Question

Складіть програму для реалізації алгоритму знаходження кількості додатних елементів масиву. Дано масив А[1..5]

Answer 1

var

x: array[1..5]

index: real;

i: integer;

begin

i:=0;

for i to 13 do

begin

 if x[i] < 0

  then

   index++;

end;

writeln('Кількість = ',index);

readln;

end.