Question

Помогите пожалуйста!!!
Срочно!!!
напишите программу которая для последовательности натуральных чисел выводит сумму всех входящих в последовательность чисел, меньших 50, но больших 10.
Количество чисел не превышает 100. Введенные числа не превышают 300. Программа должна вывести одно число-сумму всех входящих в последовательность чисел, меньших 50, но больших 10

Answer 1

Var

a,i,sum : integer;

begin 

for i:=1 to 10 do begin 

read(a);

if (a>10) and (a<50) then sum:=sum +a;

end;

write(sum);

end.