• РЕШАТЬ ЧЕРЕЗ ПАСКАЛЬ!
    Даны числа n и m. Создайте массив A[n][m] и заполните его змейкой (см. пример).
    Входные данные
    Программа получает на вход два числа n и m.

    Выходные данные
    Программа должна вывести полученный массив, отводя на вывод каждого числа ровно 3 символа.

    Примеры
    входные данные
    4 10
    выходные данные
    0 1 2 3 4 5 6 7 8 9
    19 18 17 16 15 14 13 12 11 10
    20 21 22 23 24 25 26 27 28 29
    39 38 37 36 35 34 33 32 31 30

    Я написала программу всё правильно ,но она начинается не с нуля помогите исправьте ошибку:
    var a:array[1..100,1..100] of integer;
    i,j,n,m:integer;
    begin
    readln(n,m);
    for i:=1 to n do
    begin
    for j:=1 to m do
    begin
    if i mod 2=1 then a[i,j]:=(i-1)*m+j
    else a[i,j]:=i*m-j+1;
    write(a[i,j]:3);
    end;
    writeln;
    end;
    end.
    4 10
    1 2 3 4 5 6 7 8 9 10
    20 19 18 17 16 15 14 13 12 11
    21 22 23 24 25 26 27 28 29 30
    40 39 38 37 36 35 34 33 32 31

Ответы 3

  • везде или только в первом
  • вот что пишет
  • Program1.pas(7) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years