Значения элементов двумерного массива А размером 5x5 задаются с помощью вложенного цикла в представленном фрагменте программы: Паскаль Алгоритмический язык for i:=1 tо 5 do for j:=1 tо 5 do begin A[i,j]:= i + j; end; Запишите фрагмент программы, которая позволит найти, сколько элементов массива будут иметь значения больше 5?

Для наглядности в фрагмент вставлены операторы вывода массива построчно. 

program arr;

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

i, j, n: integer;  

begin for i:=1 to 5 do  for j:=1 to 5 do  

begin A[i,j]:= i + j; 

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

if j=5 then writeln(); //разбивка на строки 

if a[i,j]>5 then n:=n+1; // фрагмент, в котором считается

//число элементов 

end; 

writeln('Количество элементов,значение которых больше 5 — ',n)

end.