• Выполнить в Pascal
    .....
    В массиве 3 на 6 поменять местами элементы второго и пятого столбца строки.

Ответы 1

  • var  i,j,x:integer;  a:array[1..3,1..6]of integer;beginwriteln('Исходный массив:');for i:=1 to 3 do  begin  for j:=1 to 6 do    begin    a[i,j]:=random(20);    write(a[i,j]:4);    end;  writeln;  end;writeln;writeln('Преобразованный массив:');for i:=1 to 3 do  begin  x:=a[i,2];  a[i,2]:=a[i,5];  a[i,5]:=x;  end;for i:=1 to 3 do  begin  for j:=1 to 6 do    write(a[i,j]:4);  writeln;  end;end.
    • Автор:

      drakeemkm
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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