Автор: olegst1975

olegst1975 — Mon, 21 Mar 2016 08:25:25 +0000

В ответ на Anton. Все верно. По времени постов видно, что 20 минут не мог понять почему не работает. Вывод - ложиться спать нужно вовремя)

Автор: Anton

Anton — Mon, 21 Mar 2016 04:21:28 +0000

А это поправил чуть подругому, изменил цикл:
for i:=n-k+1 to N do atemp[i-N+K]:=a[i];
на
for i:=1 to K do atemp[i]:=a[N-K+i];
Думаю так по логичней будет.
Было:

program Array85;
var
  a : array[1..10] of Integer;
  atemp : array[1..4] of Integer;
  N,K,i:Integer;

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

  Write('K: ');
  Readln(K);

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

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

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

  for i:=1 to K do a[i]:=atemp[i];

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

program Array85;

var

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

atemp : array[1..4] of Integer;

N,K,i:Integer;

begin

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

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

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

for i:=1 to K do a[i]:=atemp[i];

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

end.

Стало:

program Array85;
var
  a : array[1..10] of Integer;
  atemp : array[1..4] of Integer;
  N,K,i:Integer;

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

  Write('K: ');
  Readln(K);

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

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

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

  for i:=1 to K do a[i]:=atemp[i];

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

program Array85;

var

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

atemp : array[1..4] of Integer;

N,K,i:Integer;

begin

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

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

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

for i:=1 to K do a[i]:=atemp[i];

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

readln;

end.

Автор: Anton

Anton — Mon, 21 Mar 2016 04:18:49 +0000

В ответ на olegst1975. Поправил, как предложено.

Автор: olegst1975

olegst1975 — Sun, 20 Mar 2016 22:39:08 +0000

С допмассивом вроде так, но нужно проверить
for i:=n-k+1 to N do atemp[i-N+K]:=a[i]; for i:=N downto K+1 do a[i]:=a[i-K];

Автор: olegst1975

olegst1975 — Sun, 20 Mar 2016 22:19:45 +0000

Без допмассива строка 23 аналогично Array83:
for i:=N downto 2 do a[i]:=a[i-1];

Комментарии: Решаем задачи Абрамян на Паскале. Array85

Автор: olegst1975

Автор: Anton

Автор: Anton

Автор: olegst1975

Автор: olegst1975