Создать одномерный массив с помощью генератора случайных чисел, содержащий целые числа из диапазона от - 20 до + 80. К элементам с четными номерами прибавить А, а из элементов с нечетными номерами вычесть В. А и В вводятся с клавиатуры.

Program z1;

var

mas: array[1 ... 100] of integer;

i, a, b, n: integer;

begin

writeln ('Введите количество элементов массива') ;

readln (n) ;

writeln ('Введите число, которое хотите прибавить') ;

readln (a) ;

writeln ('Введите число, которое хотите отнять') ;

readln (b) ;

for i:=1 to n do

begin

mas[i]:=random (101) - 20;

write (mas[i],' ') ;

end;

for i:=1 to n do

begin

if i mod 2=0 then

mas[i]:=mas[i]+a;

if i mod 2=1 then

mas[i]:=mas[i]-b;

end;

writeln;

for i:=1 to n do

write (mas[i],' ') ;

end.