Question

Вводится 50 чисел. Подсчитать сумму чисел, принадлежащих отрезку [77; 280]. сделаите в тетрадь и сфоткаите плиз​

Answer 1

var

i,sum:integer;

a:array[1..50] of integer;

begin

sum:=0;

writeln('Введите цифры');

for i:=1 to 50 do begin

read(a[i]);

if ((a[i] > 77) and (a[i] < 280)) then  

sum:=sum+a[i];

end;

write('сумма = ',sum);

end.