Впаскале abc одномерный массив из 5 чисел,нужно вывести на экран эти элементы но передвинутые влево на одно место место,а тк первый элемент мы не можем подвинуть еще левее,то его нужно разместить на самое последнее место.то есть,к примеру,вводим числа " 5 7 9 6 8 " и в итоге должно получится так " 7 9 6 8 5"
Const
n=5;
Var
ar:array[1..n] of integer;
i,c:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(10);
write(ar[i]:4);
end;
writeln;
c:=ar[n];
for i:=n downto 2 do
ar[i]:=ar[i-1];
ar[1]:=c;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример работы программы:
First array:
9 3 4 3 0
Final array:
0 9 3 4 3