1. Из заданной матрицы А(7х7), элементы которой формируются как массив случайных чисел, сформировать одномерный массив В, состоящий из диагональных элементов матрицы А. Во вновь сформированном массиве В определить максимальный и минимальный элемент и поменять их местами. Исходную матрицу А и полученный массив В записать в текстовый файл.

В текстовый файл запись организуй сам(a).

var a:array[1..7,1..7] of integer;
b:array[1..7] of integer;
i,j,max,min,u: integer;
begin
min:=36000;
max:=0;
for i:= 1 to 7 do
for j:= 1 to 7 do
a[i,j] := random(100);

//запись массива А в текстовый файл

for i:= 1 to 7 do
for j:= 1 to 7 do
if i=j then b[i]:= a[i,j];

for i:= 1 to 7 do
begin
if b[i] < min then min:= i;
if b[i] > max then max:= i;
end;

u:=b[min];
b[min]:= b[max];
b[max]:= u;

// запись массива В в текстовый файл
end.