Дан m (30). найти сумму элементов, больше 75. Все элементы введены с клавиатуры. (На Паскале)

program zz1;

const n = 30; / / задаем количество элементов в массиве

var i, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer; / / заводим одномерный массив целого типа на n элементов

begin

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (m[i]);

for i:=1 to n do / / организуем цикл на n повторений

if m[i] > 75 / / проверяем, если очередной элемент массива больше семидесяти пяти, то добавляем его к сумме

then k:=k + m[i];

write (' сумма таких членов = ', k); / /выводим ответ

end.