Составьте блок схема для ввода с клавиатуры 10 действительных чисел и нахождения суммы всех положительных чисел
Ответы на вопрос
Ответил ProSeyDon
0
Вроде бы так
Var a, k, c:integer;
begin
c:=0;
for k:=1 to 10 do begin
read (a) ; c:=c+a; end;
end
Var a, k, c:integer;
begin
c:=0;
for k:=1 to 10 do begin
read (a) ; c:=c+a; end;
end
Ответил hello93
0
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.
Приложения:
Новые вопросы