Минимальный элемент матрицы умножить на максимальный - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Программа выполняет ввод вещественных элементов массива массива A(3,3)по строкам,контрольный вывод массива на дисплей в виде матрицы,определяет максимальный и минимальный элементы массива.Минимальный элемент умножается на аксимальный,максимальный делится на минимальный,после чего на дисплей выводится измененная матрица.

Решение задачи: «Минимальный элемент матрицы умножить на максимальный»

textual
Листинг программы
  1. uses crt;
  2. const n=3;
  3. var a:array[1..n,1..n] of real;
  4.     i,j,imn,jmn,imx,jmx:byte;
  5.     mn,mx:real;
  6. begin
  7. clrscr;
  8. writeln('Введите ',n*n,' элементов вещественной матрицы');
  9. for i:=1 to n do
  10. for j:=1 to n do
  11.  begin
  12.   write('a[',i,',',j,']=');
  13.   readln(a[i,j]);
  14.  end;
  15. clrscr;
  16. writeln('Исходная матрица');
  17. mn:=a[1,1];
  18. mx:=a[1,1];
  19. imn:=1;
  20. jmn:=1;
  21. imx:=1;
  22. jmx:=1;
  23. for i:=1 to n do
  24.  begin
  25.   for j:=1 to n do
  26.    begin
  27.     write(a[i,j]:6:2);
  28.     if a[i,j]<mn then
  29.      begin
  30.       mn:=a[i,j];
  31.       imn:=i;
  32.       jmn:=j;
  33.      end
  34.     else if a[i,j]>mx then
  35.      begin
  36.       mx:=a[i,j];
  37.       imx:=i;
  38.       jmx:=j;
  39.      end;
  40.    end;
  41.   writeln;
  42.  end;
  43. writeln('Минимальный элемент a[',imn,',',jmn,']=',mn:0:2);
  44. writeln('Максимальный элемент a[',imx,',',jmx,']=',mx:0:2);
  45. a[imn,jmn]:=mn*mx;
  46. a[imx,jmx]:=mx/mn;
  47. writeln('Измененная матрица');
  48. for i:=1 to n do
  49.  begin
  50.   for j:=1 to n do
  51.   write(a[i,j]:6:2);
  52.   writeln;
  53.  end;
  54. readln
  55. end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

11   голосов , оценка 4.091 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы