Дан 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] gt; 75 // проверяем, если очередной элемент массива больше семидесяти 5, то добавляем его к сумме

then k:=k + m[i];

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

end.