Минимальный элемент матрицы умножить на максимальный - Turbo Pascal
Формулировка задачи:
Программа выполняет ввод вещественных элементов массива массива A(3,3)по строкам,контрольный вывод массива на дисплей в виде матрицы,определяет максимальный и минимальный элементы массива.Минимальный элемент умножается на аксимальный,максимальный делится на минимальный,после чего на дисплей выводится измененная матрица.
Решение задачи: «Минимальный элемент матрицы умножить на максимальный»
textual
Листинг программы
- uses crt;
- const n=3;
- var a:array[1..n,1..n] of real;
- i,j,imn,jmn,imx,jmx:byte;
- mn,mx:real;
- begin
- clrscr;
- writeln('Введите ',n*n,' элементов вещественной матрицы');
- for i:=1 to n do
- for j:=1 to n do
- begin
- write('a[',i,',',j,']=');
- readln(a[i,j]);
- end;
- clrscr;
- writeln('Исходная матрица');
- mn:=a[1,1];
- mx:=a[1,1];
- imn:=1;
- jmn:=1;
- imx:=1;
- jmx:=1;
- for i:=1 to n do
- begin
- for j:=1 to n do
- begin
- write(a[i,j]:6:2);
- if a[i,j]<mn then
- begin
- mn:=a[i,j];
- imn:=i;
- jmn:=j;
- end
- else if a[i,j]>mx then
- begin
- mx:=a[i,j];
- imx:=i;
- jmx:=j;
- end;
- end;
- writeln;
- end;
- writeln('Минимальный элемент a[',imn,',',jmn,']=',mn:0:2);
- writeln('Максимальный элемент a[',imx,',',jmx,']=',mx:0:2);
- a[imn,jmn]:=mn*mx;
- a[imx,jmx]:=mx/mn;
- writeln('Измененная матрица');
- for i:=1 to n do
- begin
- for j:=1 to n do
- write(a[i,j]:6:2);
- writeln;
- end;
- readln
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д