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

Вопрос школьника по предмету Информатика

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