Вопрос от посетителя:
дано целое число N больше 1, а также первый член а и разность D арифметической прогрессии сформировать и вывести массив размером n содержащих n первых членов данной прогрессии.
Илюха отвечает:
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.