СРОЧНО!!! задача в Паскале abc ...дан одномерный массив из 5 чисел, нужно вывести **...

Question

СРОЧНО!!! задача в Паскале abc ...дан одномерный массив из 5 чисел, нужно вывести на экран эти элементы, но передвинутые влево на одно место,а т к первый элемент мы не можем подвинуть еще левее,то его нужно разместить на самое последнее место.То есть, к примеру, вводим числа " 1 2 3 4 5 " и в итоге должно получится так " 2 3 4 5 1"

Answer 1

Код в комментарии ниже

Comments

uses crt;
var
a : array [1..5] of integer;
i, c : integer;
begin
for i := 1 to 5 do
begin
write('Введите ', i, '-е число: ');
readln(a[i]);
end;
c := a[1];
for i := 1 to 4 do
a[i] := a[i+1];
a[5] := c;
for i := 1 to 5 do
write(a[i], ' ');
readkey();
end.