Задана

матрица (двумерный массив) A размером N x М, состоящая из действительных элементов. Числа M и N вводятся с клавиатуры.

Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью

датчика случайных чисел. Где это

необходимо ввести квадратную матрицу. Во

всех вариантах вывести исходную матрицу в общепринятом виде и необходимые

результаты работы программы. Получить новую матрицу путем деления всех

элементов данной матрицы на ее

наибольший по модулю элемент. Сформировать вектор из разности максимального и

минимального элементов строк. Вывести на экран полученную матрицу и вектор.

Question

Информатика

Леня

28 июля, 14:02

Задана

матрица (двумерный массив) A размером N x М, состоящая из действительных элементов. Числа M и N вводятся с клавиатуры.

Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью

датчика случайных чисел. Где это

необходимо ввести квадратную матрицу. Во

всех вариантах вывести исходную матрицу в общепринятом виде и необходимые

результаты работы программы. Получить новую матрицу путем деления всех

элементов данной матрицы на ее

наибольший по модулю элемент. Сформировать вектор из разности максимального и

минимального элементов строк. Вывести на экран полученную матрицу и вектор.

+5

Ответы (1)

Знаете ответ?

Андреич · Answer 1

Const

auto = true;

var

a: array[1 ... 100, 1 ... 100]of real;

b: array[1 ... 100]of real;

n, m, j, i: integer;

gmax, min, max: real;

begin

read (n, m) ;

for i : = 1 to n do

for j : = 1 to m do

begin

if auto then

a[i, j] : = random (100)

else

read (a[i, j]) ;

if abs (gmax) < abs (a[i, j]) then

gmax : = a[i, j];

end;

for i : = 1 to n do

begin

min : = a[i, 1] / gmax;

max : = a[i, 1] / gmax;

for j : = 1 to m do

begin

a[i, j] : = a[i, j] / gmax;

if min > a[i, j] then min : = a[i, j];

if max < a[i, j] then max : = a[i, j];

write (a[i, j]:5:2, ' ') ;

end;

b[i] : = max - min;

writeln (' = > ', b[i]:5:2) ;

end;

end.