Преобразовать матрицу путем деления всех элементов на максимальный элемент матрицы - Turbo Pascal
Формулировка задачи:
Дана матрица F(5,6) действительных чисел. Преобразовать ее путем деления всех элементов на максимальный элемент матрицы.
Решение задачи: «Преобразовать матрицу путем деления всех элементов на максимальный элемент матрицы»
textual
Листинг программы
const n=5;
m=6;
var
a:array[1..n,1..m] of real;
max:real;
i,j:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(50);
write(a[i,j]:5);
end;
writeln;
end;
max:=a[i,j];
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]>max then max:=a[i,j];
end;
writeln('Максимальный элемент = ',max);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=a[i,j]/max;
write(a[i,j]:5:5);
end;
writeln;
end;
end.
Объяснение кода листинга программы
- Объявляются переменные n, m, a, max, i, j.
- Задается начальное значение для каждой переменной.
- Генерируется случайное значение для каждого элемента матрицы a.
- Находится максимальное значение в матрице.
- Для каждого элемента матрицы a вычисляется отношение к максимальному значению.
- Выводится результат на экран.