program SumOverT;

const
n = 10; // количество элементов в массиве
T = 50; // величина T

var
arr: array[1..n] of Integer;
i, sum: Integer;

begin
// заполняем массив случайными значениями
Randomize;
for i := 1 to n do
arr[i] := Random(100); // случайное число от 0 до 99

// выводим массив на экран
writeln('Массив:');
for i := 1 to n do
write(arr[i], ' ');
writeln;

// считаем сумму элементов, превышающих величину T
sum := 0;
for i := 1 to n do
if arr[i] > T then
sum := sum + arr[i];

writeln('Сумма элементов превышающих ', T, ': ', sum);
end.