Помогите решить пожалуйста!!!! Паскаль!! Дана квадратная матрица n-го порядка. Отыскать норму

Помогите решить пожалуйста!!!! Паскаль!!
Дана квадратная матрица n-го порядка. Отыскать норму матрицы. Нормой матрицы считать максимум из абсолютных величин ее частей.

Задать свой вопрос
1 ответ
var
  a: array [1..10,1..10] of integer;
  i,j,max,n: integer;

begin
  readln(n);
  for i:= 1 to n do
    for j:= 1 to n do readln(a[i,j]);
  max:= a[1,1];
  for i:= 1 to n do
    for j:= 1 to n do
      if (a[i,j]gt;max) and (a[i,j]gt;0) then max:= a[i,j];
  writeln(max)
end.
Валерка Коротконожко
необходимо поправить строку:
Galina
if (a[i,j]>max) and (a[i,j]>0) then max:= a[i,j]; на строчку if (a[i,j]>max) and (a[i,j]>0) then max:= a[i,j];
Барманов Сергей
а вместо маx:= a[1,1]; необходимо max:= 0; оправдываюсь за оплошности
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт