Преобразовать матрицу путем деления всех элементов на максимальный элемент матрицы - 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.

Объяснение кода листинга программы

  1. Объявляются переменные n, m, a, max, i, j.
  2. Задается начальное значение для каждой переменной.
  3. Генерируется случайное значение для каждого элемента матрицы a.
  4. Находится максимальное значение в матрице.
  5. Для каждого элемента матрицы a вычисляется отношение к максимальному значению.
  6. Выводится результат на экран.

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы