матрицу10 на 10 заполнить случайными однозначными числами вывести на экран.
Наити:1.количество четных чисел элементов матрицы
2.количество нечетных чисел элементов матрицы
3.сумму чисел диагонали матрицы
4.максимальный элемент матрицы и его адрес.
Написать блок схему и программу

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.