Дана матрица порядка 3 на 4. В прследних к столбцах найти минимальный элемент и поменять местами с 2 элементом 1 строки. Измененный массив вывести на экран монитора к число введенные с клавиатуры.
Дана матрица порядка 3 на 4. В прследних к столбцах найти минимальный элемент и поменять местами с 2 элементом 1 строки. Измененный массив вывести на экран монитора к число введенные с клавиатуры.
Ответ(ы) на вопрос:
попробуй так:
const nmax=100; var a: array[1..nmax,1..nmax] of integer; i,j,m,n,min,max,i_max,j_max,i_min,j_min,tmp: integer; begin randomize; write('Введите размеры массива m, n: '); readln(m,n); writeln('Исходная матрица:'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(99)+1; write(a[i,j]:4); end; writeln; end; writeln; min:=a[1,1]; max:=a[1,1]; i_min:=1; j_min:=1; i_max:=1; j_max:=1; for i:=1 to m do for j:=1 to n do begin if a[i,j]>max then begin max:=a[i,j]; i_max:=i; j_max:=j; end; if a[i,j]
Не нашли ответ?
Похожие вопросы