Дан линейный массив на N элементов. Выполнить циклический сдвиг всех его элементов на один вправо начиная с последнего нулевого элемента. Нулевой элемент обязательно существует.
Входные данные:
Во входном потоке в первой строке задано натуральное число N - количество элементов массива (N <= 100).
Во второй строке через пробел перечислены целые значения элементов массива. Все значения не превышают по модулю 1000.
Выходные данные:
В выходной поток вывести в строку через пробел целые числа.
Пример входного файла (input.txt):
5
1 0 3 4 5
Пример выходного файла (output.txt):
1 5 0 3 4
Подскажите как организовать вывод данного массива
Цитата:
Var m : array[1..100] of Integer;
tmp,i,z,max : Integer;
begin
readln(max);
for i:=1 to max do
readln(m[i]);
for i:=max downto 1 do if m[i] = 0
then begin
z := i;
break
end;
tmp:=m[5];
For i:=z+1 to max do begin
m[i]:=m[i-1];
m[1]:=tmp;
|