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

1

Ответы и объяснения

Лучший Ответ!
  • ali07
  • главный мозг
2011-09-27T22:14:59+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.