Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
18
Добавлен:
04.06.2015
Размер:
645 б
Скачать
Program v;
Uses CRT;
Const n=10;
Var a: Array[1..n] Of Integer;
i, r, k, j: Integer;
Begin
Clrscr;
Randomize;
WriteLn('Исходный массив: ');
WriteLn;
For i:=1 to n Do
Begin
a[i]:=Random(20)-10;
Write(a[i]:5);
End;
WriteLn;
WriteLn;
Write('На сколько элементов нужно сдвинуть массив: ');
ReadLn(r);
For i:=1 to r Do
Begin
For j:=n Downto 1 Do
If (j=n)
Then k:=a[n]
Else a[j+1]:=a[j];
a[1]:=k;
End;
WriteLn;
WriteLn('Выходной вектор: ');
WriteLn;
For i:=1 to n Do
Begin
Write(a[i]:5);
End;
End.

Соседние файлы в папке Информатика Практика