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

Question

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

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

Answer 1

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.