Вложенные циклы + массивы

[kuy]

Помогите пожалуйста с нописанием програмы:

Заданная: матрица целых чисел M x N, компоненты которой могут быть и нулями. Сделать контрольное вывода матрицы на экран в естественном виде. Матрицу инициалиазуваты как константу (двумерный массив).

Поменять местами строки матрицы (4х3), которые содержат наименьший и наибольший элементы, вывести новую матрицу на экран.

[Pein95]

поможем) покажыте наработки)

[kuy]

Код правельный?? и что дальше делать??

program masiv;

{$APPTYPE CONSOLE}
    {11.	Поміняти місцями стовпці матриці (5х2), яки містять найменший
    і  найбільший елементи, вивести нову матрицю на екран.}

uses
  SysUtils;

var
  mas        : array[1..5,1..2] of integer;
  i,j,maxI,maxJ,minI,minJ  : integer;
begin
  randomize;
  Writeln('Random matrix 5x2:');
  for j:=1 to 5 do
    begin
      for i:=1 to 2 do
        begin
          mas[i,j] := - 10 + random(21);
          Write(mas[i,j],'   ');
        end;
      Writeln;
    end;
maxI:=1;
maxJ:=1;
minI:=1;
minJ:=1;
  for j:=1 to 5 do
   for i:=1 to 2 do
   begin
     if mas[i,j]>mas[maxI,maxJ] then
      begin
       maxI:=i;
       maxJ:=j;
      end;
     if mas[minI,minJ]>mas[i,j] then
      begin
       minI:=i;
       minJ:=j;
      end;
    end;
  Writeln('min = ',mas[minI,minJ]);
  Writeln('max = ',mas[maxI,maxJ]);
readln;
end.

[Alex11223]

В задании же

Матрицу инициалиазуваты как константу

а не заполнять случайными числами.

maxI:=1;
maxJ:=1;
minI:=1;
minJ:=1;
  for j:=1 to 5 do
   for i:=1 to 2 do
   begin
     if mas[i,j]>mas[maxI,maxJ] then
      begin
       maxI:=i;
       maxJ:=j;
      end;
     if mas[minI,minJ]>mas[i,j] then
      begin
       minI:=i;
       minJ:=j;
      end;
    end;

Не понял, что вы тут хотите сделать. Поиск макс и мин и их строк?
Как-то так тогда:

max:=mas[1,1]; min:=max[1,1]; //предположим, что элемент [1,1] являются макс и мин
maxi:=1; mini:=1; //номера строк
for i:=1 to 5 do
    for j:=1 to 2 do
    begin
       if mas[i,j]>max then begin max:=mas[i,j]; maxi:=i; end;
       if max[i,j]<min then begin min:=max[i,j]; mini:=i; end;
    end;

ну и дальше останется только поменять местами строку maxi с mini

[kuy]

ничего не получается.., подставляю

max:=mas[1,1]; min:=max[1,1]; //предположим, что элемент [1,1] являются макс и мин
maxi:=1; mini:=1; //номера строк
for i:=1 to 5 do
    for j:=1 to 2 do
    begin
       if mas[i,j]>max then begin max:=mas[i,j]; maxi:=i; end;
       if max[i,j]<min then begin min:=max[i,j]; mini:=i; end;
    end;

и столбики неверные вриди выходят. Да и как матрицу инициалиазувать как константу??

[Alex11223]

Так не столбики же, а строки нужны.
строка: ———————————————
столбик:
_
_
_
_
_

Да и как матрицу инициалиазувать как константу??

const
 mas: array[1..4, 1..4] of integer = (
    (8,9,1,3),
    (21,6,7, 5),
    (0, 2, 8, 7),
    (15, 16, 5, 2)
    );

[kuy]

Вроди бы всё сделал, только ошибку выдаёт на этапе когда пытаюсь строки менять местами(красненим)

program massive;

{$APPTYPE CONSOLE}


uses
  SysUtils;
const
 mas: array[1..4, 1..3] of integer =
    (
    (8, 9, 1),
    (5, 6, 7),
    (0, 2, 8),
    (3, 7, 9)
    );
var
  i,j,max,min,maxi,mini,temp  : integer;
begin
writeln('original matrix 4*3:');
for i:=1 to 4 do
 begin
 for j:=1 to 3 do
   write(mas[i,j]:4);
   writeln;
  end;


max:=mas[1,1]; min:=mas[1,1]; //предположим, что элемент [1,1] являются макс и мин
maxi:=1; mini:=1; //номера строк
for i:=1 to 4 do
    for j:=1 to 3 do
    begin
       if mas[i,j]>max then begin max:=mas[i,j]; maxi:=i; end;
       if mas[i,j]<min then begin min:=mas[i,j]; mini:=i; end;
    end;
writeln('max line = ',maxi);
writeln('min line = ',mini);


writeln('new matrix:');
for i:=1 to 4 do
 begin
 temp := mas[maxi,j];
 mas[maxi,j] := mas[mini,j];
 mas[mini,j] := temp;
 end;
for i:=1 to 4 do
 begin
 writeln;
 for j:=1 to 3 do
   write(mas[i,j]:4);
  end;
readln;
end.

[Alex11223]

mas[maxi,j]

А откуда j?

[kuy]

Сообщение от Alex11223

А откуда j?

Я по примерам делал.. незнаю.. Как правильно записать??

[Alex11223]

Ну так у вас в цикле i

for i:=1 to 4 do

а используете какую-то j.