WriteLn(i:2,' строка:',' наибольший элемент в ',N_Max:1

' столбце ','равен ',Max:6:3);

end;

end;

WriteLn('сумма наибольших элементов равна ',sum:6:3);

End.

5. Вид печати:

Массив A

0.681 0.243 -0.419 -0.696 -0.333 0.336 0.696 0.416 -0.246

-1.173 -0.419 0.721 1.197 0.573 -0.578 -1.198 -0.716 0.424

-1.949 -0.696 1.197 1.989 0.952 -0.960 -1.990 -1.190 0.704

-0.933 -0.333 0.573 0.952 0.456 -0.460 -0.953 -0.570 0.337

0.941 0.336 -0.578 -0.960 -0.460 0.463 0.960 0.574 -0.340

1.950 0.696 -1.198 -1.990 -0.953 0.960 1.991 1.191 -0.704

Строка: наибольший элемент в 7 столбце равен 0.696

Строка: наибольший элемент в 4 столбце равен 1.989

Строка: наибольший элемент в 7 столбце равен 0.960