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.