var a:array [1..7] of real;

i:integer;

begin

write ('Массив: ');

for i:=1 to 7 do

begin

a[i]:=random(201)-100;

write (a[i],' ');

end;

writeln;

write ('Массив * 2: ');

for i:=1 to 7 do

begin

a[i]:=a[i]*2;

write (a[i],' ');

end;

end.

это возможно что выше

а ниже значение 50 на 1 измени и все 

uses crt;

var mas:array[1..20] of integer;

i,b:integer;

begin

clrscr;

randomize;

for i:=1 to 20 do

begin

mas[i]:=random(51)+50;

write(mas[i]:4);

end;

write('B=');

readln(b);

for i:=1 to 20 do beginmas[i]:=mas[i]+b;

write(mas[i]:4);

end;

readkey;

end.