Pascal. Заполнение двухмерного массива

[hottab1]

Здравствуйте! Я бы хотел попросить Вас написать программу на Pascal, которая заполнит двухмерный массив вот в таком виде:
1 2 3 4 5
10 9 8 7 6
11 12 13 14 15
20 19 18 17 16

[BDA]

a[i, j] := (i - 1) * m + j * (i and 1) + (m - j + 1) * (i and 1 xor 1);

i от 1 до n (количесво строк)
j от 1 до m (количество столбцов)

[hottab1]

Спасибо конечно, Вам большое, но мне желательно весь код полностью с прописанными переменными и так далее

[BDA]

Пожалуйста.

Ну так если всё за Вас напишут, чему же Вы научитесь?

Тут нужны 2 константы n и m, 2 переменных i и j, массив чисел nxm, 2 цикла - один вложен в другой.

[hottab1]

Да, действительно Вы правы
Я вроде сделал, но у меня не получилось, а сейчас понял почему
Вот так примерно будет?

var: a:array [1..10,1..10] of integer;
                i,j:integer;
                const n='10',m='10';
begin
for i:=1 to 10 do
for J:=1 to 10 do

Строга не критикуйте, пожалуйста

[BDA]

Так уже лучше.
Не совсем верно.
Нужно так:

const
  n = 5;
  m = 4;
var
  a: array [1..n, 1..m] of integer;
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
    //еще несколько строк, одна из которых из моего поста выше

[hottab1]

Большое спасибо!
Примерно вот так будет?

const
  n = 5;
  m = 4;
var
  a: array [1..n, 1..m] of integer;
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
a[i, j] := (i - 1) * m + j * (i and 1) + (m - j + 1) * (i and 1 xor 1);
write(a[i,j]:3);
readln;
end.

[BDA]

Почти.
Вы программу запускали? Она выводит 1 число. Нужно добавить begin и end, чтобы вывела все элементы (в строку) и еще begin, end, writeln, чтобы вывела в виде двухмерного массива.

[hottab1]

Тогда наверное так?

const
  n = 5;
  m = 4;
var
  a: array [1..n, 1..m] of integer;
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
a[i, j] := (i - 1) * m + j * (i and 1) + (m - j + 1) * (i and 1 xor 1);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
end;
writeln(a[i,j];
readln;
end.

[BDA]

Да, почти верно:

const
  n = 5;
  m = 4;
var
  a: array [1..n, 1..m] of integer;
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := (i - 1) * m + j * (i and 1) + (m - j + 1) * (i and 1 xor 1);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i,j]:3);
    writeln;
  end;
  readln;
end.

или

const
  n = 5;
  m = 4;
var
  a: array [1..n, 1..m] of integer;
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := (i - 1) * m + j * (i and 1) + (m - j + 1) * (i and 1 xor 1);
      write(a[i,j]:3);
    end;
    writeln;
  end;
  readln;
end.