Автор: Anton

Anton — Mon, 21 Mar 2016 04:01:19 +0000

В ответ на olegst1975. Буга га... избавляться от дополнительной переменной рекурсией... :) Но решение добавил в шапку... возможно потомкам пригодиться :)

Автор: olegst1975

olegst1975 — Sun, 20 Mar 2016 22:09:58 +0000

Строка 18
for i:=N downto 2 do a[i]:=a[i-1];

Ну и типичный пример как делать не нужно. Была идея: а можно ли без доп переменной и перетасовыванием эл-тов?..Да)

[crayon-694e87a268b99453491330 inline="true" ]
type
  mas=array [1..10]of real;
var
  n,i:integer;      
  a:mas;

procedure swap(var a:mas;i:integer);
  begin
    if i=n then exit;
    a[i]:=a[i]+a[n];
    a[n]:=a[i]-a[n];
    a[i]:=a[i]-a[n];
    swap(a,i+1);
  end;

begin  
  readln(n);        
  for i:=1 to n do readln(a[i]);    
  swap(a,1);  
  for i:=1 to n do writeln(a[i]);
end.

[crayon-694e87a268b99453491330 inline="true" ]

type

mas=array [1..10]of real;

var

n,i:integer;

a:mas;

procedure swap(var a:mas;i:integer);

begin

if i=n then exit;

a[i]:=a[i]+a[n];

a[n]:=a[i]-a[n];

a[i]:=a[i]-a[n];

swap(a,i+1);

end;

begin

readln(n);

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

swap(a,1);

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

end.

[/crayon]

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

Автор: Anton

Автор: olegst1975