Напишите программу, которая выводит на экран строку матрицы, сумма значений элементов которой наибольшая (Pascal)

Вопрос школьника по предмету Информатика

Напишите программу, которая выводит на экран строку матрицы, сумма значений элементов которой наибольшая (Pascal)

Ответ учителя по предмету Информатика

Const

   N = 3;

   M = 4;

Var

   A:array[1..N,1..M] of integer;

   i,j,iMax:integer;

   S,Max:real;

Begin

Randomize;

WriteLn(‘Исходная матрица:’);

For i:= 1 to N do

    Begin

    For j:= 1 to M do

        Begin

        A[i,j]:=random(21)-10;

        Write(A[i,j]:3,’ ‘);

        End;

    WriteLn

    End;

Max:=0;

iMax:=1;

For j:= 1 to M do

    Max:=Max+A[1,j];

For i:= 2 to N do

    Begin

    For j:= 1 to M do

        S:=S+A[i,j];

    if S>Max then

       Begin

       Max:=S;

       iMax:=i;

       End;

    End;

Write(‘Искомая строка:’);

For j:= 1 to M do

    Write(‘ ‘,A[iMax,j])

End.

Пример работы программы:

Исходная матрица:

  8   0  -7  -1

 -2 -10  -4 -10

  5  -1  10  -6

Искомая строка: 8 0 -7 -1