Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце

@Londally · Регистрация: 11.11.2017

Author24 — интернет-сервис помощи студентам

Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце.

Помогите пж, последнее зaдaние и прaктикa зaкрытa

@ZX Spectrum-128 · 16.02.2018, 20:30

Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке, столбце

@Londally · 16.02.2018, 20:33 **[ТС]**

Мне без процедур нужно

@Puporev · 16.02.2018, 20:47

Так пиши без процедур.

@Londally · 16.02.2018, 20:54 **[ТС]**

Я бы с рaдостью, да вот только мозги не позволяют грамотно удалить и заменить процедуры другими функциями. Если поможете мне - буду очень благодарен

@Puporev · 16.02.2018, 21:42

Pascal

const n = 5;
      m = 10;
var a:array[1..n,1..m] of integer;
    i,j,jmn,jmx,x:integer;
begin
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(30);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for j:=1 to m do
 begin
  jmn:=1;
  jmx:=1;
  for i:=2 to n do
  if a[i,j]<a[jmn,j] then jmn:=i
  else if a[i,j]>a[jmx,j] then jmx:=i;
  x:=a[jmx,j];
  a[jmx,j]:=a[jmn,j];
  a[jmn,j]:=x;
 end;
writeln('Обмен минимальных и максимальных в столбцах');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:3);
  writeln;
 end;
end.

@Londally · 16.02.2018, 22:35 **[ТС]**

Вы мой кумир!) Спacибо)))

@Londally 0 / 0 / 0 Регистрация: 11.11.2017 Сообщений: 24
		1
	Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце 16.02.2018, 20:08. Показов 2350. Ответов 6 Метки нет (Все метки) Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце. Помогите пж, последнее зaдaние и прaктикa зaкрытa 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	16.02.2018, 20:30	2
	Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке, столбце 0

@Londally 0 / 0 / 0 Регистрация: 11.11.2017 Сообщений: 24
	16.02.2018, 20:33 [ТС]	3
	Мне без процедур нужно 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.02.2018, 20:47	4
	Так пиши без процедур. 0

@Londally 0 / 0 / 0 Регистрация: 11.11.2017 Сообщений: 24
	16.02.2018, 20:54 [ТС]	5
	Я бы с рaдостью, да вот только мозги не позволяют грамотно удалить и заменить процедуры другими функциями. Если поможете мне - буду очень благодарен 0

@Londally 0 / 0 / 0 Регистрация: 11.11.2017 Сообщений: 24
	16.02.2018, 22:35 [ТС]	7
	Вы мой кумир!) Спacибо))) 0

Опции темы

Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце

Решение