Ввести массив а 50. найдите сумму элементов которое больше 100

Должно быть правильно, если я правильно понял твой вопрос.

program massive; var a:array[1 ... 50] of integer; var i, s:integer; begin for i: = 1 to 50 do / / можем заполнить массив целыми числами от - 1000 до 1000 используя random () a[i]: = random (2001) - 1000; for i: = 1 to 50 do / / или дать пользователю самому заполнить массив begin writeLn ('Введите значение ', i, ' элемента массива:') ; readLn (a[i]) ; end; s:=0; for i: = 1 to 50 do if a[i] > 100 then s: = s+a[i]; writeLn ('Сумма элементов массива, которые больше 100 = ', s) ; end.