Безотлагательно! Написать программку заполнения двумерного массива (7Х7) 1 2 3 4

Безотлагательно!
Написать программу наполнения двумерного массива (7Х7) 1 2 3 4 5 6 7
7 6 5 4 3 2 1
1 2 3 4 5 6 7
7 6 5 4 3 2 1... и т.д.

Задать свой вопрос
1 ответ
Var  a: array[1..7, 1..7] of integer;
i, j: integer;
begin
  for i := 1 to 7 do 
  begin
    for j := 1 to 7 do 
    begin
      if(odd (i)) then a[i, j] := j
      else a[i, j] := 8 - j;
      write(a[i, j]:2);
    end;
    writeln();
  end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт