Двумерный массив, Две задачи. Опции

[Carola]

Я в больнице месяц провела,а тут вышла и информатика...Скажу честно - ничего не понимаю.Что делать и как..А задачи сдать надо.
Очень прошу о помощи.

Задачи.

1. Дан 2-х мерный массив, поменять местами указанные столбцы.
2. Дан 2-х мерный квадратный массив. требуется вывести на экран строку чисел, но не по порядку, а по змейке. см. пример: массив
1 2 3
4 5 6
7 8 9
результат вывода на экран
1 2 3 6 9 8 7 4 5

[volvo]

Первая...

const
  n = 3;
  a: array[1 .. n, 1 .. n] of integer =
    ((1, 2, 3),
     (4, 5, 6),
     (7, 8, 9));

var
  i, j: integer;
  first, second: integer;
  T: integer;

begin
  { Столбец с номером First поменять местами со столбцом с номером Second }
  first := 1; second := 2;

  writeln('До:');
  for i := 1 to n do begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;

  for i := 1 to n do begin
    T := a[i, first];
    a[i, first] := a[i, second];
    a[i, second] := T;
  end;

  writeln('После:');

  for i := 1 to n do begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;

end.

[Carola]

Спасибо,Владимир=)
Лучше бы ты был моим преподавателем.

То есть,прям в таком виде и сдавать,да*?(ну закинув в паскаль конечно=)
Эх,надеюсь кто-нибудь и вторую сделает....
Ещё 4 осталось.....Но,не буду наглеть пока.

Сообщение отредактировано: Carola - 13.12.2005 17:35