Задача на массивы

[_dandelion_]

Помогите пожалуйста решить задачу на паскале. Не очень понимаю его
"Массив 5х6. В каждой строке расставить по возрастанию элементы расположенные между максимальными"
P.S. извините, если что то не понятно, но такое условие в тетрадке написано.
Спасибо заранее.

[Олвин]

Ну расставить элементы по возрастанию просто.

var
a : array[1..5, 1..6] of integer;
i, j, x, n : integer;

begin
{...здесь должно быть заполнение массива...}
for n := 1 to 6 do {перебор строк}
 for i := 1 to 4 do {сортировка строки}
  begin
  for j := i + 1 to 5 do 
   begin
   if a[i, n] > a[j, n] then 
    begin
    x := a[i, n]; 
    a[i, n] :=a[j, n]; 
    a[j, n] := x;
    end;
   end;
  end;
end;

Почти процитирую: "P.S. извините, если что то неправильно, но такое условие в тетрадке написано."
Если помог - поднимите мне репутацию

[_dandelion_]

Извините, у меня на строке

if a[i] > a[j] then

вылезает ошибка (как в Pascal ABC так и в Turbo pascal 7).
И еще хотел узнать...

begin
{...здесь должно быть заполнение массива...}
for n := 1 to 6 do {перебор строк}

нужно вместо надписи "Здесь должно быть..." писать или так оставить

[Олвин]

Точно! Массив-то двухмерный! Ну я отредактировал то сообщение.
А на счёт заполнения массива - я в таких задачах заполнял случайными числами:

randomize;
for i := 1 to 5 do
 for j := 1 to 6 do
  a[i, j] := random(100);

[puporev]

расположенные между максимальными

Думаю после того как ты уснул, препод сказал еще полтора слова, типа " и минимальными"

[_dandelion_]

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

Думаю после того как ты уснул, препод сказал еще полтора слова, типа " и минимальными"

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

[puporev]

uses crt;
const m=5;
      n=6;
var a:array[1..m,1..n] of integer;
    i,j,k,l,jmx,jmn:byte;
    mx,mn,x:integer;
begin
clrscr;
writeln('Введите элементы массива');
{вводить лучше так, чтоб между максимальным и минимальным элементами в каждой строке было не менее 3 позиций,
 и числа в этом промежутке были по убыванию, иначе никакой сортировки не увидишь.}
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
for i:=1 to m do
 begin
  mx:=a[i,1];jmx:=1;{сначала в каждой строке ищем позиции макс и мин элементов}
  mn:=a[i,1];jmn:=1;
  for j:=1 to n do
   begin
    if a[i,j]>mx then
     begin
      mx:=a[i,j];
      jmx:=j;{позиция макс}
     end;
    if a[i,j]<mn then
     begin
      mn:=a[i,j];
      jmn:=j;{позиция мин}
     end;
   end;
  if jmn<jmx then{если мин раньше чем макс}
   begin
    for k:=jmn+1 to jmx-2 do{сортируем между мин и макс}
    for l:=k+1 to jmx-1 do
    if a[i,k]>a[i,l] then
      begin
       x:=a[i,k];
       a[i,k]:=a[i,l];
       a[i,l]:=x;
      end;
    end
   else if jmx<jmn then{если макс раньше}
     begin
      for k:=jmx+1 to jmn-2 do{сортируем между макс и мин}
      for l:=k+1 to jmn-1 do
      if a[i,k]>a[i,l] then
        begin
         x:=a[i,k];
         a[i,k]:=a[i,l];
         a[i,l]:=x;
        end;
      end;
 end;
writeln('Измененная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

[_dandelion_]

Если можно, объясните, что значит "не менее 3 позиций"

[puporev]

Если введешь строку типа 5 5 1 8 5 5, то никакой сортировки не будет, т.к. между макс=8 и мин=1 нет ни одного числа. А если введешь
1 8 7 6 9 5, то будет сортировка 1 6 7 8 9 5