дано целое число N больше 1, а также первый член а и разность D арифметической прогрессии...

Question

дано целое число N больше 1, а также первый член а и разность D арифметической прогрессии сформировать и вывести массив размером n содержащих n первых членов данной прогрессии.

Answer 1

program xxx;

   var i, n : integer;

         a, d : real

            s: array[1..20] of real;

begin

   write('введите N-');

   readln (n);

   write('введите а=');

   readln(a);

   write('введите d=');

   readln(d);

   s[1]:=a;

   for i:=2 to n do

     s[i]:=a+d;

   write('Арифметическая прогрессия:'); 

   for i:=1 to n do

        write(s[i]);

end.