1. Нахождение наибольшего элемента главной диагонали. (Паскаль, двумерные массивы ) 2. Нахождение наименьших элементов

1.

var x: Array[1..10, 1..10] of Integer; // массив двумерный i, j, n, im, jm: Byte; max: Integer;

begin Writeln(\'Введите размерность матрицы: \'); Readln(n); n := n + 1; max := -Maxint; Writeln(\'Матрица:\'); for i := 1 to n - 1 do begin for j := 1 to n - 1 do begin x[i, j] := Random(51) - 25; Write(x[i, j]:4); end; Writeln end; Writeln(\'Главная диагональ:\'); // вывод главной диагонали для дальнейшей проверки for i := 1 to n do begin Write(x[i, i], \' \'); if x[i, i] > max Then begin max := x[i, i]; im := i; jm := i; end; end; writeln; writeln(\'Наибольший элемент главной диагонали равен \', max);end.

2.

Uses crt; var b: array [1..100, 1..100] of integer; a: array [1..100] of integer; i, j, n, min: integer;

begin clrscr; Writeln(\'Введите размерность матрицы: \');

Readln(n); for i := 1 to n do for j := 1 to n do b[i, j] := random(100) - 50; writeln(\'Матрица: \'); for i := 1 to n do begin for j := 1 to n do Write(\' \', b[i, j], \' \'); writeln; end; writeln; for j := 1 to n do begin min := b[1, j]; for i := 2 to n do if b[i, j] <= min then min := b[i, j]; a[j] := min; end; Writeln(\'Минимальные элементы столбцов: \'); for j := 1 to n do write(a[j]:4); Readlnend.