Question

Пожалуйста помогите.
С клавиатуры вводится N целых чисел – цены на товары. Найдите количество товаров с ценой не менее 250 рублей.

Answer 1

Ответ:

var n,a,i,s:integer;

begin

 read(n);

 for i:=1 to n do begin

   read(a);

   if a>=250 then

     s+=1;

 end;

print(s);

end.

Объяснение:

P.S. отметьте "лучший ответ", буду очень благодарен

P.S.S. если нужны дополнительные пояснения, могу предоставить