Создайте программу, которая запрашивает значения 5 переменных и организует повторяющийся размен.

Сделайте программку, которая запрашивает значения 5 переменных и организует циклический размен. a1lt;-a2,a2lt;-a3..a5lt;-a1. Пример: 1 2 3 4 5. После размена: 2 3 4 5 1

Задать свой вопрос
1 ответ
Var
   a1,a2,a3,a4,a5,B:real;
Begin
Write('Введите 5 чисел: ');
ReadLn(a1,a2,a3,a4,a5);
B:=a1;
a1:=a2;
a2:=a3;
a3:=a4;
a4:=a5;
a5:=B;
WriteLn(a1,' ',a2,' ',a3,' ',a4,' ',a5);
End.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт