заполнить массив А размером NxM следующим образом:1 8 9

Заполнить массив А размером NxM следующим образом:

1 8 9 16 17 24 25 32
2 7 10 15 18 23 26 31
3 6 11 14 19 22 27 30
4 5 12 13 20 21 28 29

В паскале

Задать свой вопрос
1 ответ

const n=4; m=8;

var a:array[1..n,1..m] of integer;

i,j,x: integer;

begin

x:=1;

for j:=1 to m do

begin

for i:=1 to n do

begin

a[i,j]:=x;

if (j mod 2 = 0) and (ilt;gt;n) then x:=x-1

else x:=x+1

end;

x:=x+n-1

end;

for i:=1 to n do

begin

for j:=1 to m do write(a[i,j]:5);

writeln

end

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт