составьте программку, которая заполняет массив а[1..10] случайными целыми числами в диапозоне

Составьте программку, которая наполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10, потом меняет местами первый элемент со вторым, третий с четвертым и тд. Выведите на экран начальный и приобретенный массивы.

Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программка не работает, обновите её версию!
begin
  var a:=ArrRandom(10,1,10); a.Println;
  var i:=0;
  while ilt;=9 do begin
    Swap(a[i],a[i+1]);
    i+=2
    end;
  a.Println
end.

Пример
5 1 7 3 6 3 9 1 3 8
1 5 3 7 3 6 1 9 8 3
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт