Question

Составьте блок схема для ввода с клавиатуры 10 действительных чисел и нахождения суммы всех положительных чисел

Answer 1

Вроде бы так
Var a, k, c:integer;

begin

c:=0;

for k:=1 to 10 do begin

read (a) ; c:=c+a; end;

end

Answer 2

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

 begin  

   read (a[i]);

   if a[i]>0 then  

     s:=s+a[i];

 end;

WriteLn(s);

end.

923e89a7bf575704f1b31739ed8290e7.pdf