Найти сумму тех чисел, которые больше заданного М - Pascal ABC

Формулировка задачи:

вводить в переменную x последовательно 25 чисел x. найти сумму тех чисел которые > заданного М емли таких чисел нет, то выдать сообщение. М вводится с клавиатуры


textual

Код к задаче: «Найти сумму тех чисел, которые больше заданного М - Pascal ABC»

const n=25;
var x,m,s,i,k:integer;
begin
write('M=');
readln(m);
writeln('Введите ',n,' целых чисел');
k:=0;
for i:=1 to n do
 begin
  readln(x);
  if x>m then
   begin
    k:=1;
    s:=s+x;
   end;
 end;
if k=1 then write('s=',s)
else write('Чисел больше ',m,' нет');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 4.333 из 5

Источник
Похожие ответы