Матрицу 10 на 10 заполнить случайными однозначными числами вывести…

Program znanija_com; const n=5; m=5; rnd=9; type tArray=array[1… n, 1… m] of integer; var arr: tArray; i,j, sum_ch, sum_nch, sum_diag, max_num, max_index_1, max_index_2: integer; begin randomize; writeln ('Исходная матрица: '); for i: =1 to n do begin for j: =1 to m do begin arr[i,j]: =random (rnd); if arr[i,j] mod 2=0 then sum_ch: =sum_ch+1 else sum_nch: =sum_nch+1; write (arr[i, j], '); end; writeln (); end; for i: =1 to n do sum_diag: =sum_diag+arr[i,i]; max_num: =arr[1,1]; max_index_1: =1; max_index_2: =1; for i: =1 to n do begin for j: =1 to m do begin if arr[i, j] > max_num then begin max_num: =arr[i, j]; max_index_1: =i; max_index_2: =j; end; end; end; writeln ('Колечество четных элементов равно ', sum_ch); writeln ('Колечество нечетных элементов равно ', sum_nch); writeln ('Сумма главной диаганили равна ', sum_diag); writeln ('Максимальное число равно ', max_num, ' Находится [',max_index_1, ', ', max_index_2, ']'); readln (); end.