Должно быть правильно, если я правильно понял твой вопрос.
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.