Предмет: Информатика,
автор: choloeva00
Составьте блок схема для ввода с клавиатуры 10 действительных чисел и нахождения суммы всех положительных чисел
Ответы
Автор ответа:
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.
Приложения:

Похожие вопросы
Предмет: Математика,
автор: viktoriaerika7
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: gorovenkostefania
Предмет: Физика,
автор: DaniilMagic
Предмет: Алгебра,
автор: vitaliaon