Question

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

Answer 1

pascal abc
const n=100;
var
mas: array [1..n] of real;
i:integer;
a,b:real;
begin
readln(a);
readln(b);
For i:= 1 to n do               
begin               
mas[i]:= random(101)-20;               
If i mod 2=0 then mas[i]:= mas[i]+a                           
else mas[i]:= mas[i]-b;               
end;
end.