вас
хотя бы что-нибудь решить
​

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.

Для разделения целой и дробной частей десятичной дроби использовать запятую.

Вводить отрицательные числа со знаком минус или взять число в скобки.

Для обозначения процентов после числа вводить символ "%".

Обычную дробь нужно вводить, указывая и отделяя её от дробной пробелом.

Обозначение единиц измерения после чисел не вводится, только если это не денежные единицы.

перевод:

Для поділу цілої та дробової частин десяткового дробу використовувати кому.

Вводити негативні числа зі знаком мінус або взяти число в дужки.

Для позначення відсотків після числа вводити символ "%".

Звичайну дріб потрібно вводити, вказуючи і відокремлюючи її від дробу прогалиною.

Позначення одиниць виміру після чисел не вводиться, тільки якщо це не грошові одиниці.