Паскаль

[Twisti]

1. умножить все элементы последней строки матрицы на максимальный элемент не главной диагонали матрицы...

2. написать программу. вычисляющую объем и площадь поверхности параллелепипеда. Операцию вычисления объема и площади поверхности параллелепипеда оформить в виде подпрограммы.

[vovk]

это вы нам задание даёте? или как?

[GetMax]

умножить все элементы последней строки матрицы на максимальный элемент не главной диагонали матрицы...

Max:=Low(Integer);
For i:=1 to N do
Begin
  For j:=1 to N do
  If (i + j < N+1) and (Mas[i,j] > Max) then Max:=Mas[i,j]
End;
For j:=1 to N do
Mas[N,j]:=Mas[N,j]*Max