Значения элементов двумерного массива А размером 5x5 задаются с помощью вложенного цикла в представленном фрагменте программы:

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

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.