Найдите количество элементов массива М (5,5) равных 22 значения которых задаются…

Program Matr22; Uses Crt; type matrix=array[1… 5,1… 5] of integer; var m: matrix; n: byte; procedure Auto; var i,j: integer; beginn: =0; randomize; for i: =1 to 5 do begin for j: =1 to 5 do begin m[i,j]: =random (50)+5; if (m[i,j]=22) then n: =n+1; end; end; end; procedure PrintMatrix (mas: matrix; var j,k: integer; begin for k: =1 to 5 do begin for j: =1 to 5 do begin write (mas[k,j]: 3); end; writeln; end; end; begin clrscr; Auto; PrintMatrix (m); writeln; writeln ('Количество элементов равных 22: ',n); readkey; end.