Создать одномерный массив с помощью генератора случайных чисел, содержащий целые числа из диапазона от -20 до +80. К элементам с четными номерами прибавить А, а из элементов с нечетными номерами вычесть В. А и В вводятся с клавиатуры.
More Questions From This User See All
Answers & Comments
Verified answer
Pascal abcconst 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.