Увеличить каждый элемент массива А (12) на 8,125. Элементы массива выводятся

по формуле А (х) = 5 х-2. Паскаль ABC

var

a: array[1 ... 12] of real;

x: integer;

begin

Writeln ('Начальный массив:') ;

for x:=1 to 12 do

begin

a[x]:=5*x-2;

writeln ('a[', x, ']=', a[x]) ;

end;

Writeln ('Увеличим каждый элемент массива на 8,125:') ;

for x:=1 to 12 do

begin

a[x]:=a[x]+8.125;

writeln ('a[', x, ']=', a[x]) ;

end;

end.