Question

Программа получает на вход число N - количество чисел в последовательности, а затем сами числа. Найти сумму чисел положительных последовательности, меньших 100

Answer 1

Ответ:

var otvet,n,i,j:integer;

begin

readln (n);

for i:=1 to n do

begin

read (j);

if j<100 then otvet:=otvet+j;

end;

writeln (otvet);

end.

Объяснение: