Процедура переноса элемента

@Kateryna1111 · Регистрация: 10.07.2015

Author24 — интернет-сервис помощи студентам

Добрый день!
Помогите пожалуйста написать две процедуры на языке Паскаль.
Первая должна из 5 элементов переместить последний в начало (было 12345, стало 51234)
Вторая из пяти элементов переносит первый в конец (было 12345, стало 23451).

@ZX Spectrum-128 · 28.12.2017, 15:26

Сообщение от Kateryna1111

из 5 элементов

Элементов чего?

@Puporev · 28.12.2017, 15:37

Pascal

const n=5;
type mas=array[1..n] of integer;
procedure p1(var a:mas);
var i,x:integer;
begin
x:=a[n];
for i:=n downto 2 do
a[i]:=a[i-1];
a[1]:=x;
end;
procedure p2(var a:mas);
var i,x:integer;
begin
x:=a[1];
for i:=1 to n-1 do
a[i]:=a[i+1];
a[n]:=x;
end;
var a:mas;
    i:byte;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=10+random(90);
  write(a[i]:3);
 end;
writeln;
p1(a);
writeln('Перестановка последнего элемента в начало');
for i:=1 to n do
write(a[i]:3);
writeln;
p2(a);
writeln('Перестановка первого элемента в конец');
for i:=1 to n do
write(a[i]:3);
end.

@Kateryna1111 1 / 1 / 2 Регистрация: 10.07.2015 Сообщений: 157
		1
	Процедура переноса элемента 28.12.2017, 15:13. Показов 1141. Ответов 2 Метки нет (Все метки) Добрый день! Помогите пожалуйста написать две процедуры на языке Паскаль. Первая должна из 5 элементов переместить последний в начало (было 12345, стало 51234) Вторая из пяти элементов переносит первый в конец (было 12345, стало 23451). 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	28.12.2017, 15:26	2
	Сообщение от Kateryna1111 из 5 элементов Элементов чего? 0

	28.12.2017, 15:37

Процедура переноса элемента

Решение