1. Сформировать массив из 10 целых чисел случайным образом из [20;100],

1_2.

const n=10;

var a:array[1..n] of integer;

i:integer;

begin

randomize;

writeln('Начальный массив:');

for i:=1 to n do

begin

a[i]:=random(81)+20;

write(a[i],' ');

end;

writeln;

writeln('Приобретенный массив:');

for i:=1 to n do

begin

if a[i] mod 2=0 then a[i]:=3 else a[i]:=-3;

write(a[i]:3);

end;

writeln;

end.

Пример:

Начальный массив:

49 25 50 90 82 20 71 25 57 45  

Полученный массив:

-3 -3  3  3  3  3 -3 -3 -3 -3

1_3.

const n=10;

var a:array[1..n] of integer;

i:integer;

begin

randomize;

writeln('Начальный массив:');

for i:=1 to n do

begin

a[i]:=random(81)+20;

write(a[i],' ');

end;

writeln;

writeln('Приобретенный массив:');

for i:=1 to n do

begin

if i mod 2=0 then a[i]:=3 else a[i]:=-3;

write(a[i]:3);

end;

writeln;

end.

Пример:

Начальный массив:

85 29 99 27 80 70 70 58 78 46  

Приобретенный массив:

-3  3 -3  3 -3  3 -3  3 -3  3