• Заполнить массив следующим образом:
    В с++ либо в pascal abc
    1 8 9 16
    2 7 10 16
    3 6 11 14
    4 5 12 13

Ответы 1

  • PASCALconst  n=4;var  a:array[1..n,1..n] of integer;  i,j:integer;begin  // заполнение  for j:=1 to n do    if j mod 2=0 then      for i:=n downto 1 do a[i,j]:=j*n-i+1    else      for i:=1 to n do a[i,j]:=n*(j-1)+i;  // вывод  for i:=1 to n do begin    for j:=1 to n do Write(a[i,j]:3);    Writeln    endend.Результат  1  8  9 16  2  7 10 15  3  6 11 14  4  5 12 13Замечание: значение n можно менять.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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