SaveText.Ru

Без имени
  1. const n=10;
  2. var a:array[1..n] of real; r:real;
  3. begin
  4. read(a[1],r);
  5. write(a[1]);
  6. for var i:=2 to n do begin a[i]:=a[i-1]+r; write(' ',a[i]); end;
  7. end.

Share with your friends:

Print