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

Array79. Дан массив размера $N$ . Осуществить сдвиг элементов массива вправо на одну позицию (при этом $A_1$ перейдет в $A_2$ , $A_2$ — в $A_3$ , $…$ , $A_{N–1}$ — в $A_N$ , a исходное значение последнего элемента будет потеряно). Первый элемент полученного массива положить равным $0$ .

Решение:

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

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

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

  for i:=N downto 2 do a[i]:=a[i-1];
  A[1]:=0;

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

program Array79;

var

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

N,i:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

for i:=N downto 2 do a[i]:=a[i-1];

A[1]:=0;

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

end.

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

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

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

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

Добавить комментарий Отменить ответ