Question

Задача в Паскале abc ...дан одномерный массив из 5 чисел,нужно вывести на экран эти элементы но передвинутые влево на одно место место,а тк первый элемент мы не можем подвинуть еще левее,то его нужно разместить на самое последнее место.То есть,к примеру,вводим числа " 5 7 9 6 8 " и в итоге должно получится так " 7 9 6 8 5"

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

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