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

program array_;var a: array [1..5, 1..8] of integer;i, j, s: integer;beginrandomize;for i:= 1 to 5 dobeginfor j:= 1 to 8 do begina[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\') elsewriteln(\' Сумма элементов третьего столбца,которые больше 5, равна \', s)

end.