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

Насчет размера массива ничего, так что он задается константой 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.