Составьте блок схема для ввода с клавиатуры 10 действительных чисел и нахождения суммы всех положительных чисел
P.s во вложении будет скриншот блок-схемы и файл с ней.
Программа:
program test1;
const
n=10;
var
a: array [1..n] of real ;
i:Integer;
s:real;
begin
s:=0;
for i:=1 to n do
read (a[i]);
if a[i]>0 then
s:=s+a[i];
end;
WriteLn(s);
end.