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

program elementy_massiva;

var x: array[-20 ... 80] of integer;

i, j, a, b: integer;

begin

randomize;

writeln ('Введите число A');

readln (a);

writeln ('Введите число B');

readln (b);

for i : = 1 to 100 do x[i] : = random (100);

for i:=1 to 100 do begin

if x[i] div 2 = 0 then x[i] : = x[i] + a else x[i] : = x[i] - b;

for i : = 1 to 100 do write (x[i]:4);

end.