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

Question

Информатика

Мавродий

4 декабря, 20:35

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

+3

Ответы (1)

Знаете ответ на вопрос?

Димитриан · Answer 1

Var

a1, a2, a3, a4, a5, B:real;

Begin

Write ('Введите пять чисел: ') ;

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.