Автор: Bronislav

Bronislav — Thu, 11 Oct 2018 16:33:37 +0000

procedure Smooth_1(var a: RArray; n: integer);
begin
  for var k := n downto 1 do
  begin
    var Sum := 0.0;
    for var i := 1 to k do
      Sum += a[i];
    a[k] := Sum / k
  end
end;

procedure Smooth_1(var a: RArray; n: integer);

begin

for var k := n downto 1 do

begin

var Sum := 0.0;

for var i := 1 to k do

Sum += a[i];

a[k] := Sum / k

end

end;

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

Автор: Bronislav