Автор: Bronislav

Bronislav — Fri, 12 Oct 2018 08:36:12 +0000

«При описании процедур, выполняющих преобразование массива, не следует использовать вспомогательный массив того же размера.» Попробуйте ввести ряд 1 2 3 4 5. Что-то тут не так.

procedure Smooth3(var a: RealArr; n: integer);
begin
  var tmp := a[1];
  for var i := 1 to n - 1 do
  begin
    a[i] := (a[i] + a[i + 1]) / 2;
    Swap(tmp, a[i + 1])
  end;
  a[n] := (a[n] + tmp) / 2
end;

procedure Smooth3(var a: RealArr; n: integer);

begin

var tmp := a[1];

for var i := 1 to n - 1 do

begin

a[i] := (a[i] + a[i + 1]) / 2;

Swap(tmp, a[i + 1])

end;

a[n] := (a[n] + tmp) / 2

end;

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

Автор: Bronislav