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