var i,j,t:byte; {описание двумерного массива} tarray:array[1..n,1..n] of integer;//например так
begin t:=0; {тут ввод двумерного массива} for i:=1 to n do for j:=1 to n do if tarray[i,j] > 5 then t:=t+1; writeln('В массиве ', t, ' элементов >5'); end.
n=10;//кол-во элементов
var
i,j,t:byte;
{описание двумерного массива}
tarray:array[1..n,1..n] of integer;//например так
begin
t:=0;
{тут ввод двумерного массива}
for i:=1 to n do
for j:=1 to n do
if tarray[i,j] > 5 then t:=t+1;
writeln('В массиве ', t, ' элементов >5');
end.