Question

(программа паскаль) 1)заполните массив элементами арифметической прогрессии. её первый элемент и разность нужно ввести с клавиатуры. 2) заполните массив степенями числа 2( от 2(в первой степени) до 2(в n степени)

Answer 1

Насчет размера массива ничего, так что он задается константой n. А еще массив сразу выводится

Первая задача:

const n=10;
var a:array[1..n] of real; r:real;
begin
read(a[1],r);
write(a[1]);
for var i:=2 to n do begin a[i]:=a[i-1]+r; write(' ',a[i]); end;
end.

Вторая:

const n=10;
var a:array[1..n] of integer;
begin
a[1]:=2; write(a[1]);
for var i:=2 to n do begin a[i]:=a[i-1]*2; write(' ', a[i]); end;
end.