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

Ответы 2

  • извиняюсь. забыл поставить ; в конце 4 строки
    • Автор:

      meganrich
    • 6 лет назад
    • 0
  • Const N = 10;Var A:array[1..n,1..n] of integeri,min,max,j: integer;BeginRandomize;For i:=1 to n do beginFor j:=1 to n do beginA[i,j]:= random(50);Write(a[i,j]:4);End;Writeln;End;Writeln;Max:=a[1,1]; min:=a[1,1]; For i:=1 to n do beginIf a[i,i] > max then max:= a[i,i];If a[i,i] < min then min:= a[i,i];End;Write(max,' ',min);End.
    • Автор:

      litzy
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years