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

  1. вводить в переменную 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.

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

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



Похожие ответы
  1. Проверьте, правильно ли работает программа. А именно PROCEDURE BSr, и правильность передачи переменных в основную программу. ЗАДАНИЕ: Сформировать массив из чисел, больших среднего.

  1. Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству:слово симметрично

  1. Составить программу обработки строковой информации с выводом на экран исходного и результирующего текстов. Исходный текст выбирается самостоятельно.Вычеркните из строки X те символы, которые используются в строке X дважды.

  1. Решите пожалуйста задачу на строки. Если можно можете еще объяснить что сделали. Вывести все буквы которые есть во всех словах. К примеру вводим слова: папа, мама Выводить должен: п,а,м

  1. 34. Найти сумму положительных целых чисел, меньших 100

  1. С клавиатуры задается последовательность чисел. Ввод прекращается по отрицательному числу в задаваемой последовательности. Найти сумму чисел, а также те из них, которые лежат в интервале от 1 до 5. Определить количество таких чисел.

  1. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.

  1. Дано матрицу размером 4х4. Найти сумму элементов в тех строках которые содержат хотя бы один отрицательный элемент

  1. Подсчитать количество чисел, принадлежащих промежутку [X,Y] и лежащих выше главной диагонали. Как вывести ответ из промежутка? Не дописал. Был бы рад помощи.

  1. Дано массив А(M,M). Сформировать массив P из произведений элементов на параллелях, которые лежат над главной диагональю.