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

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

Задать свой вопрос
1 ответ
В текстовый файл запись организуй сам(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] lt; min then min:= i;
if b[i] gt; max then max:= i;
end;

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

// запись массива В в текстовый файл
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт