а)vara:array[1..10]of integer;i:integer;beginfor i:=1 to 10 do a[i]:=random(20)+1;for i:=10 downto 1 do write(a[i],' ');end.б)vara:array[1..20]of integer;i:integer;beginfor i:=1 to 20 do a[i]:=random(11*i)+10*i;for i:=1 to 20 do if i mod 2=1 then write(a[i],' ');end.