Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 37.

Переставить элементы, стоящие на нечетных местах, с соответствующими элементами на четных местах.

program prim2;
  uses crt;
  var i, n, r: integer;
  a: array[1.. 10000] of integer;
begin
  clrscr;
  randomize;
  write ('число элементов ');
  readln(n);
  for i:=1 to n do
    begin
{Получаем случайные числа и выводим их на экран.}
      a[i]:=random(45)-22;
      write(a[i],' ');
    end;
{В полученном массиве меняем соседние элементы.}
  i:=1;
{Пока I<=N-1.}
  while i<=n-1 do
    begin
{Меняем значения соседних элементов. }
      r:=a[i];a[i]:=a[i+1];a[i+1]:=r;
{Увеличиваем индекс на два.}
      inc(i,2);
    end;
{Распечатываем измененный массив.}
  for i:=1 to n do
    write(a[i],' ');
  readkey;
end.

{Процедура Inc(i,n) преобразует переменную порядкового типа i к последующему значению (n=1) или на n шагов вперед.}





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru