обработка двумерных массивов...

[Mizantrop]

Ввести матрицу , вывести ее. В матрице нечетные столбцы отсортировать по убыванию, а четные по возрастанию.Помогите пожалуйста.

[Stilet]

Запрсосто. Как два пальца о зачетку

MODULE Матрица;
IMPORT StdLog,In;
VAR  a:ARRAY(3) OF ARRAY(3) OF INTEGER;

PROCEDURE ВыводМассива;
VAR i,j:INTEGER;
BEGIN
 FOR i:=0 TO 2 DO
  FOR j:=0 TO 2 DO
    StdLog.Int(a[i,j]);
    StdLog.Tab;
  END;
  StdLog.Ln; 
 END;
END ВыводМассива;

PROCEDURE СортировкаКолонки(j:INTEGER);
VAR k,i,q:INTEGER;
BEGIN
 FOR i:=0 TO LEN(a)-1 DO 
  FOR q:=i TO LEN(a)-1 DO
  IF j MOD 2=0 THEN 
   IF a[i,j]<a[q,j] THEN
    k:=a[i,j];
    a[i,j]:=a[q,j];
    a[q,j]:=k;
   END;
  ELSE
   IF a[i,j]>a[q,j] THEN
    k:=a[i,j];
    a[i,j]:=a[q,j];
    a[q,j]:=k;
   END;
  END; 
  END;
 END;
END СортировкаКолонки;

PROCEDURE do*;
VAR n,k,e:INTEGER;
BEGIN
 In.Open;
 In.Int(n);
 StdLog.Clear;
 k:=0;e:=0;
 WHILE In.Done DO
  a[e,k]:=n;
  INC(k);
  IF k=LEN(a) THEN k:=0;INC(e) END;
  In.Int(n);
 END;
 ВыводМассива;
 StdLog.Ln;StdLog.String('Сортирнем');StdLog.Ln;
 FOR n:=0 TO LEN(a)-1 DO
  СортировкаКолонки(n);
 END; 
 ВыводМассива;
END do;

Вызывается командой Матрица.do;

Вот вводные данные:

5 6 4
2 4 6
3 8 9

Вот выходные

5 6 4
2 4 6
3 8 9

Сортирнем
5 4 9
3 6 6
2 8 4

Годится?

[Mizantrop]

да спасибо