Опубликовано 03.01.2018 по предмету Информатика от Гость

Матрицу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.