дано целое число 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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.