pascal курсовая задача

[alex_fcsm]

Да, все верно. Массив заполняется верными элементами а на печать выводятся не те. Будем искать индексы нужных нам элементов

For i:=1 to n do
 begin
 if i mod 2 =0 then
   begin
    max:=1;
     for j:=2 to m do
      if a[i,j]>a[i,max] then max:=j;
      ms[i]:=a[i,max];
     writeln('Element ',a[i,max],'[',i,',',max,']');
   end
    else
     begin
    min:=1;
     for j:=2 to m do
      if a[i,j]<a[i,min] then min:=j;
      ms[i]:=a[i,min];
     writeln('Element ',a[i,min],'[',i,',',min,']');
     end;
 end;

[Maklin55]

Это сработало, но вот как теперь их отсортировать?

У меня так продолжение получилось, но паскаль выдаёт ошибку

end;
begin
   For i := 1 To n-1 Do
     If a[i]>a[i+1]  Then
       Begin
         x:=a[i];
         a[i]:=a[i+1];
         a[i+1]:=x
       End;
 Writeln('Ћвб®авЁа®ў***л© ¬*ббЁў зЁбҐ«:');
 For i:=1 To n Do
 Write (' ',a[i]:2);

end;
readkey;
end.

[alex_fcsm]

Код правильно оформляйте. Вам надо новый массив сортировать, а вы пытаетесь сортировать двумерный

[Maklin55]

А вот с этого места по подробнее можно?

[alex_fcsm]

Вам надо сортировать массив ms[i] а не а[i,j]

[Maklin55]

.......if a[i,j]<a[i,min] then min:=j;
ms[i]:=a[i,min];
writeln('ЊЁ*Ё¬*«м*л© н«Ґ¬Ґ*в ',a[i,min],'[',i,',',min,']');
end;
end;
begin
 For k := 1 To n-1 Do
   For i := 1 To n-1 Do
     If ms[i]>ms[i+1]  Then
       Begin
         x:=ms[i];
         ms[i]:=ms[i+1];
         ms[i+1]:=x
       End;
 Writeln('Ћвб®авЁа®ў***л© ¬*ббЁў зЁбҐ«:');
 For i:=1 To m Do
 Write (' ',ms[i]:2);
end;
readkey;
end.

Массив выводится. Но он сортируется в разнобой. Где у меня ошибка?

[alex_fcsm]

Ох. Форматируйте код, оформляйте правильно.

For k := 2 To n Do
 For i := n downto k Do
  If ms[i]>ms[i+1] Then
   Begin
    x:=ms[i];
    ms[i]:=ms[i+1];
    ms[i+1]:=x;
   end;

В цикле в используете N Ниже выводите массив уже до M Разберитесь уже, наконец, где какая переменная

[Maklin55]

Я сделал так же, как и вы мне сейчас выдали. У меня теперь просто выводится массив и сортировка не происходит вообще.

[alex_fcsm]

Свои слова подкрепляйте вашим кодом. Гадать что у вас не так никто не будет

[Maklin55]

У меня в общем вышла такая программа:

program iwakurs;
uses crt;
var
a:array[1..10,1..10]of integer;
ms:array[1..10] of integer;
m,n,i,j,max,min,k,x:integer;
Begin
clrscr;
read (m);
read (n);
For i:=1 to m do
for j:=1 to n do
Begin
gotoxy (j*4,i+10);
read(a[i,j]);
end;
for i:=1 to m do
begin
if i mod 2=0 then
begin
max:=1;
for j:=2 to n do
if a[i,j]>a[i,max] then max:=j;
ms[i]:=a[i,max];
writeln('Максимальный элемент ',a[i,max],'[',i,',',max,']');
end
else
begin
min:=1;
for j:=2 to n do
if a[i,j]<a[i,min] then min:=j;
ms[i]:=a[i,min];
writeln('Минимальный элемент ',a[i,min],'[',i,',',min,']');
end;
end;
begin
 For k:= 2 To n Do
   For i := n downto k Do
     If ms[i]>ms[i+1]  Then
       Begin
         x:=ms[i];
         ms[i]:=ms[i+1];
         ms[i+1]:=x;
       End;
 Writeln('Отсортированный масив чисел');
 For i:=1 To m Do
 Write (' ',ms[i]:2);


end;
readkey;
end.

У меня в итоге выводится массив, но он не сортируется. И я не могу понять почему.

 Writeln('Отсортированный масив чисел');
 For i:=1 To m Do
 Write (' ',ms[i]:2);

Если тут "M" заменить на "N", то количество элементов массива равно не количеству строк, а количеству столбцов.