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

[alex_fcsm]

Когда начнете исправляться? Код правильно оформляйте

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
 begin
  for j:=1 to n do
   Begin
    a[i,j]:=random(10)-random(15);
    write(a[i,j]:4);
   end;
  writeln;
 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('Element ',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('Element ',a[i,min],'[',i,',',min,']');
   end;
 end;

 For k:=2 To m Do
  For i:=m downto k Do
   If ms[i-1]>ms[i] Then
    Begin
     x:=ms[i];
     ms[i]:=ms[i-1];
     ms[i-1]:=x;
    End;
 Writeln('Sorted:');
 For i:=1 To m Do
 Write (' ',ms[i]:2);
readkey;
end.

Небольшая ошибка в сортировке. Можно было и самому поправить.

[Maklin55]

Ура, спасибо!
С чем с чем, а вот сортировка у меня никогда не получалась.
А всё остальное в задачи объясняли мне в училище лишь в двух словах, кроме ввода матрицы.

Всё. Проблема решена. Ещё раз спасибо!