Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A+D, A+2*D, A+3*D+ ...

code: #pascal
program Array3;
var
  a: array of real;
  i, n: integer;
  d: real;
begin
  WriteLn ('Количество членов прогрессии:');
  ReadLn (n);
  SetLength(a, n);
  WriteLn('Первый член прогрессии:');
  ReadLn (a[0]);
  WriteLn ('Разность прогрессии:');
  ReadLn (d);
  WriteLn ('Прогрессия: ');
  Write (a[0]:5:2, ' ');
  for i := 1 to n - 1 do
  begin
    a[i] := a[0] + i*d;
    Write (a[i]:5:2, ' ');
  end;
  WriteLn;
  ReadLn;
end.   
 

автор: Zaharov Nikolay a.k.a. hacker19_90

Поделиться:

Похожие статьи: