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

Question

Видомир

25 января, 07:43

+5

Ответы (1)

Знаете ответ на вопрос?

Кинг · Answer 1

Вроде бы так

Var a, k, c:integer;

begin

c:=0;

for k:=1 to 10 do begin

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

end