Написать программу для "Pascal": Дана целочисленная матрица размерности (NxM). Поменять местами строки с max и min элементами.
Написать программу для "Pascal":
Дана целочисленная матрица размерности (NxM). Поменять местами строки с max и min элементами.
Гость
Ответ(ы) на вопрос:
Гостьprogram n1;
const maxm = 50;
maxn = 50;
var a:array[1..maxm,1..maxn] of integer;
min,max,i,j,n,m,x,maxi,mini:integer;
begin
write('Введите размеры матрицы (N*M): ');
readln(n,m);
writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:');
min:=maxint; max:=-maxint-1;
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end;
if a[i,j]
Не нашли ответ?
Похожие вопросы