Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Переставить последний элемент массива на место первого . При этом первый, второй,.., последний элементы сдвинуть вправо на 1 позицию

Ответ оставил Гость

Program mac;
uses crt;
 const n=9;
var c,i:integer; a:array[0..n] of integer;
begin
writeln(введите исходный массив);
for i:=0 to n do 
begin
    write(a[,i,]=);  readln(a[i]); 
end; 
writeln(вывод исходного массива);
for i:=0 to n do 
     write(a[i], ); 
writeln;
 c:=a[n]; 
 for i:=n-1   downto  0 do   
a[i+1]:=a[i];
a[0]:=c;
writeln(вывод  результативного  массива);
for i:=0 to n do write(a[i], ); 
readln
end.