| dsdassda | Дата: Вторник, 16.12.2014, 23:54 | Сообщение # 1 |
|
Новичок
Группа: Пользователи
Сообщений: 1
Статус: Offline
| Дан линейный массив на N элементов. Выполнить циклический сдвиг всех его элементов на один вправо начиная с первого нулевого элемента. Нулевой элемент обязательно существует.
Входные данные:Выходные данные:Во входном потоке в первой строке задано натуральное число N - количество элементов массива (N <= 100).
Во второй строке через пробел перечислены целые значения элементов массива. Все значения не превышают по модулю 1000.В выходной поток вывести в строку через пробел целые числа.Пример входного файла (input.txt):51 0 3 4 5 Пример выходного файла (output.txt):1 5 0 3 4 вот мое решение но выдает ошибку
var
i,b,n,k: Integer;
a: array [1..100] of Integer;
begin
Readln(n);
for i:=1 to n do read(a);
for i:=1 to 4 do
begin
for k:=n downto 1 do
if (k=n)
then b:=a
[n]else a[k+1]:=a[k];
a[1]:=b;
end;
for i:=1 to n do write(a,' ');
end.
помогите
|
| |
| |
