Question

Программа Pascal ABC : введите 70 чисел, выведите сумму чисел из введённых меньших 100

Answer 1

var a,s: integer;

i: byte;

begin

for i:=1 to 70 do begin

readln(a);

if a < 100 then s:=s + a;

end;

writeln(s);

end.