В матрице А (10, 10) найти максимальные элементы в строках и максимальный элемент матрицы - Pascal ABC

Формулировка задачи:

Помогите выполнить задание. В матрице А (10, 10) найти максимальные элементы в строках и максимальный элемент матрицы. Вывести исходную матрицу, найденные значения элементов и номера строк и столбцов, где они находятся.

Код к задаче: «В матрице А (10, 10) найти максимальные элементы в строках и максимальный элемент матрицы - Pascal ABC»

textual
Const n=10;
Var A:array[1..n,1..n] of integer;
    i,j,imax,jmax,jColMax:integer;
Begin
    imax:=1;jmax:=1;
    For i:=1 to n do
    begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(51)-25;
        write(A[i,j]:4);
        if A[i,j] > A[imax, jmax] then
        Begin
          imax:=i;
          jmax:=j;
        End;
      End;
      writeln;
    End;
    writeln('Max = ',A[imax, jmax], ' его индексы A[',imax,',',jmax,']');
    For i:=1 to n do
    Begin 
      jColMax:=1;
      For j:=2 to n do
       if A[i,j] > A[i, jColMax] then jColMax := j;
      writeln('В ',i,' строке max элемент = ',A[i, jColMax], ' его индекс = ',jColMax);
    End;
End.

9   голосов, оценка 3.889 из 5


СОХРАНИТЬ ССЫЛКУ