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

Автор: adfg

adfg — Tue, 19 Nov 2019 18:37:49 +0000

program array81;
var a,b:array [1..20] of real; n,k:integer;
begin
  readln (n,k);
  for var i:=1 to n do read (a[i]);
  for var i:=1 to n do
  begin
    b[i+k]:=a[i];
  end;
  for var i:=1 to n do print (b[i]);
end.

program array81;

var a,b:array [1..20] of real; n,k:integer;

begin

readln (n,k);

for var i:=1 to n do read (a[i]);

for var i:=1 to n do

begin

b[i+k]:=a[i];

end;

for var i:=1 to n do print (b[i]);

end.

Автор: Anton

Anton — Sun, 06 Nov 2016 08:05:48 +0000

В ответ на derevyashka. Вы имеете ввиду задание array85 http://coolcode.ru/reshaem-zadachi-abramyan-na-paskale-array85/ ?

Автор: derevyashka

derevyashka — Sun, 06 Nov 2016 07:59:53 +0000

Добрый день!
А не подскажите, как сделать, чтобы первые К элементов были не нулевые, а равнялись последним элементам первоначального массива?

Автор: Anton

Anton — Sun, 20 Mar 2016 13:18:09 +0000

Поправил.

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

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

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

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

и добавил второе решение до кучи.

Автор: olegst1975

olegst1975 — Sat, 19 Mar 2016 22:58:11 +0000

Строка 21:
for i:=N downto k+1 do a[i]:=a[i-k];
или совместить два цикла
for i:=n downto 1 do if i>k then a[i]:=a[i-k] else a[i]:=0;