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.