Найти сумму значений элементов массива, больших некоторой величины М - Pascal ABC
Формулировка задачи:
Решение задачи: «Найти сумму значений элементов массива, больших некоторой величины М»
program SUMMA10; {Заполнение массива} const n=10; {вводом с клавиатуры} var s,i,m:integer; a:array [1..n] of integer; begin for i:=1 to n do begin write(‘Введите,a[’,i,’]=’); readln(a[i]); end; writeln(‘Исходный массив:’); for i:=1 to n do write(a[i],‘ ’); writeln; write(‘Введите значение для поиска:’); readln(m); s:=0; for i:=1 to n do if a[i]>m then s:=s+a[i]; writeln('Сумма s=',s) end.
Объяснение кода листинга программы
Программа SUMMA10
предназначена для нахождения суммы значений элементов массива, которые больше определенной величины М
.
Константа n
определяет количество элементов в массиве, которое вводится с клавиатуры.
Переменные s
, i
и m
также определены как целочисленные.
Массив a
представляет собой массив из n элементов, каждый из которых может быть введен пользователем.
С помощью цикла for
происходит заполнение массива значениями, введенными пользователем.
Затем выводится исходный массив с помощью цикла for
.
Далее программа запрашивает у пользователя значение для поиска, которое сохраняется в переменной m
.
Затем создается переменная s
, которая будет хранить сумму значений элементов массива, больших m
.
С помощью цикла for
происходит проверка каждого элемента массива. Если элемент больше m
, то его значение добавляется к переменной s
.
В конце программы выводится сумма s
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д