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] gt; 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] lt;= min then min := b[i, j];
a[j] := min;
end;
Writeln(Малые элементы столбцов: );
for j := 1 to n do
write(a[j]:4);
Readln
end.