Значения элементов двумерного массива А размером 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.