:сформировать массив из 23 элементов арифметической прогрессии (предусмотреть ввод первого элемента и разности прогрессии) и организовать вывод массива в столбец.
Program n1; const n=23; var a: array[1..n] of integer; i,d: integer; begin write('a1='); readln(a[1]); write('d='); readln(d); writeln(a[1]); for i:=2 to n do begin a[i]:=a[1]+(i-1)*d; writeln(a[i]); end; end.
const n=23;
var a: array[1..n] of integer;
i,d: integer;
begin
write('a1=');
readln(a[1]);
write('d=');
readln(d);
writeln(a[1]);
for i:=2 to n do
begin
a[i]:=a[1]+(i-1)*d;
writeln(a[i]);
end;
end.