Сформировать матрицу размером 5*8 случайным образом из диапазона значений 0-10. вывести ее на экран и определить количество элементов больших пяти в третьем столбце и их сумм если таких элементов нет то указать что они отсутствуют

program array_;

var a: array [1 ... 5, 1 ... 8] of integer;

i, j, s: integer;

begin

randomize;

for i: = 1 to 5 do

begin

for j: = 1 to 8 do

begin

a[i, j]:=random (11); write (a[i, j]:4);

end;

writeln ();

end;

j: = 3;

s: = 0;

writeln ();

for i:=1 to 5 do if a[i, j]>5 then s:=s+a[i, j];

if s = 0 then writeln (' В третьем столбце нет элементов больше 5') else

writeln (' Сумма элементов третьего столбца, которые больше 5, равна ', s)

end.