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

задана квадратичная матрица А порядка N состоящая из действительных элементов.Найти сумму элементов строки,в которой расположен наибольший элемент.

Ответ оставил Гость

var a:array [1..100,1..100] of real;
i,j,maxi,n:integer;
s,max:real;
Begin
    read(n);
    for i := 1 to n do
        for j := 1 to n do begin
            read(a[i,j]);
            if ((i=1) and (j=1)) or (max                max:=a[i,j];
                maxi:=i;
            end;
        end;

    for j := 1 to n do
        s:=s+a[maxi,j];

    writeln(s);
End.