Надо составить программу. Я не знаю как

[peter065]

Дана целочисленная матрица N(5´4). Найти наибольший и наименьший элементы. Вместо наибольшего элемента в матрицу записать наименьший, а вместо наименьшего – наибольший.Перебор элементов исходной матрицы вести по столбцам. Использовать операторы While и Repeat.



Чем быстрее, тем лучше

[Mad_Cat]

Чем быстрее, тем лучше

j:=1;im1:=1;jm1:=1;im2:=1;jm2:=1;
while j<=4 do 
begin
i:=1;
repeat 
if a[i,j]>a[im1,jm1] then begin im1:=i;jm1:=j end;
if a[i,j]<a[im2,jm2] then begin im2:=i;jm2:=j end;
inc (j);
until i>5; 
inc(j);
end;
tmp:=a[im2,jm2];
a[im2,jm2]:=a[im1,jm1];
a[im1,jm1]:=tmp;

[peter065]

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

[peter065]

У меня чет не получается

[ROMA2PVT]

Uses
 CRT;
Const
 n=5;
 m=4;
Var
 i,j:integer;
 a:array[1..n,1..m] of integer;
begin
ClrScr;
randomize;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(10)-4;
     write(a[i,j]:2,' ');
    end;
    writeln;
  end;
readkey
end.