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);
Readln
end.