Question

дана арифметическая прогрессия из N членов.Число элементов N,1-й элемент а1 и разность d задаются с клавитуры.Вывести все члены прогрессии на экран и вычислить сумму элементов прогрессии,значение которых меньше пяти.Решить задачу тремя способами.прошу помогите я буду очень благодарен.

Answer 1

var

a: array [1..255] of integer;

i, n, d, a1: integer;

begin

writeln('n, d, a1');

read(n, d, a1);

a[1]:=a1;

for i:=2 to n do a[i]:=a[i-1]+d;

a1:=0;

for i:= 1 to n do if a[i]<5 then a1:=a1+a[i];

writeln('summa:', a1);

for i:=1 to n do write(a[i], ' ')

end.