Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика Практика / 4
.pas 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.
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.
Соседние файлы в папке Информатика Практика