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

program z1;varmas: array[1..100] of integer;i,a,b,n: integer;beginwriteln('Введите количество элементов массива');readln(n);writeln('Введите число, которое хотите прибавить');readln(a);writeln('Введите число, которое хотите отнять');readln(b);for i:=1 to n dobeginmas[i]:=random(101)-20;write(mas[i],' ');end;for i:=1 to n dobeginif i mod 2=0 thenmas[i]:=mas[i]+a;if i mod 2=1 thenmas[i]:=mas[i]-b;end;writeln;for i:=1 to n dowrite(mas[i],' ');end.