Question

Составить блок-схему алгоритма определения суммы положительных чисел из десяти.

Answer 1

Program pr;

uses crt;

Var i,a,x:integer;

Begin

x:=0;

for i:=1 to 10 do

Begin

readln(a);

if a>0 then x:=x+1;

end;

Writeln('Кол-во положительных чисел= ', x);

readln;

end.