(Программа Паскаль)

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

2) Заполните массив степенями числа 2( от 2(в первой степени) до 2(в N степени)

Насчет размера массива ничего, так что он задается константой n. А еще массив сразу выводитсяПервая задача:const n=10;var a:array[1..n] of real; r:real;beginread(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;begina[1]:=2; write(a[1]);for var i:=2 to n do begin a[i]:=a[i-1]*2; write(' ', a[i]); end;end.