Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.