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

Var a=array [1 ... 5,1 ... 8]of byte;

i, j, sum:integer;

begin

for i:=1 to 5 do

for j:=1 to 8 do

a[i, j]:=random (10) ;

for i:=1 to 5 do

begin

for j:=1 to 8 do

write (" ", a[i, j]) ;

writeln () ;

end;

sum:=0;

for i:=1 to 5 do

for j:=1 to 8 do

if (a[i, j]>5) then sum:=sum+a[i, j];

if (sum0) then writeln ("summa = ", sum) else if (sum=0) then writeln ("net bolhe 5") ;

end.