(Программа Паскаль) 1) Заполните массив элементами арифметической прогрессии. Ее…

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