Задайте с помощью генератора случайных чисел массив размерностью до 100 элементов в диапазоне от 1 до 100. Присвойте всем нечётным членам значение равное 100 и выведите массив

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 begin mas[i]:=mas[i]+b; write (mas[i]:4) ; end; readkey; end.