Решаем задачи Абрамян на Паскале. Array84

Array84. Дан массив размера $$N$$. Осуществить циклический сдвиг элементов массива влево на одну позицию (при этом $$A_N$$ перейдет в $$A_{N-1}$$, $$A_{N-1}$$ — в $$A_{N-2}$$, $$…$$, $$A_1$$ — в $$A_N$$).

Решение:

program Array84;
var
  a : array[1..10] of Integer;
  N,i,A1:Integer;

begin
  Write('N: ');
  Readln(N);

  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  A1:=A[1];
  for i:=1 to N-1 do a[i]:=a[i+1];
  a[N]:=A1;

  for i:=1 to N do writeln(i,' :',a[i]);
end.

program Array84;

var

a : array[1..10] of Integer;

N,i,A1:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

A1:=A[1];

for i:=1 to N-1 do a[i]:=a[i+1];

a[N]:=A1;

for i:=1 to N do writeln(i,' :',a[i]);

end.

Задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array84

Комментарии:

Комментарии 2

Добавить комментарий для olegst1975 Отменить ответ