Saithisida
5 год назад
Пожалуйста посчитайте!!Пожалуйста!!даю 50 поинтов!!!Написатьпрограмму которая просит ввести 10 чисел и находит сумму всех чисел,которые больше 0 из ряда введенных Для pascal ABC
ОТВЕТЫ
Luka
Oct 24, 2020
program abc;
var a, summa:integer;
begin
summa:=0;
writeln('Введите 10 чисел');
for i:integer:=1 to 10 do begin
readln(a);
if a>0 then summa:=summa+a;
end;
writeln(summa)
end.
var a, summa:integer;
begin
summa:=0;
writeln('Введите 10 чисел');
for i:integer:=1 to 10 do begin
readln(a);
if a>0 then summa:=summa+a;
end;
writeln(summa)
end.
875
Смежные вопросы:
