Предмет: Информатика,
автор: freyhdddddddddddd
Составьте программу на языке паскаля. Даны 10 чисел .Найти сумму чисел , которые не меньше 5.
Ответы
Автор ответа:
0
Program z1;Var Sum, a, i:integer;BeginSum:=0;5for i:=1 to 10 do begin read(a); if (a>=5) then Sum:=Sum+a; end;writeln(Sum);end.
Похожие вопросы
Предмет: Физика,
автор: madle74
Предмет: Русский язык,
автор: lg1425
Предмет: Физика,
автор: krisxviiqw
Предмет: Математика,
автор: ирина252
Предмет: Математика,
автор: dilya0206