Помогите!!Пожалуйста!!даю 50 баллов!!!
Написать программу которая просит ввести 10 чисел и находит сумму всех чисел,которые больше 0 из ряда введенных
Для pascal ABC
Написать программу которая просит ввести 10 чисел и находит сумму всех чисел,которые больше 0 из ряда введенных
Для pascal ABC
More Questions From This User See All
Answers & Comments
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.
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ReadArrInteger(10);
Writeln(a.Where(t->t>0).Sum);
end.
Пример:
0
12
2
3
5
6
1
2
5
6
42