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

@LUMIXD · Регистрация: 17.06.2015

Студворк — интернет-сервис помощи студентам

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

@Puporev · 17.06.2015, 10:59

Pascal

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.

@Samhain · 24.06.2015, 22:32

LUMIXD,

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

Решение

Решение

@LUMIXD 0 / 0 / 0 Регистрация: 17.06.2015 Сообщений: 3
		1
	Найти сумму тех чисел, которые больше заданного М 17.06.2015, 09:37. Показов 6125. Ответов 2 Метки нет (Все метки) вводить в переменную x последовательно 25 чисел x. найти сумму тех чисел которые > заданного М емли таких чисел нет, то выдать сообщение. М вводится с клавиатуры 0

@Samhain 695 / 569 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	24.06.2015, 22:32	3
	Сообщение было отмечено Cyborg Drone как решение Решение LUMIXD, Миниатюры 1

Опции темы