Question

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

Answer 1

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.