1. Заполнить массив а [1 ... 14] случайными целыми числами в диапазоне от 1 до 18 и вывести на экран элементы массива с нечетными значениями, меньшими 10.

2. Заполнить массив а [1 ... 15] случайными целыми числами в диапазоне от - 14 до 14 и вывести на экран элементы массива со значениями, меньшими 5 и индексами, не меньшими 10.

1)

var

a:array[1 ... 14] of integer;

n, k, i:integer;

begin

for i:=1 to 14 do

begin

a[i]:=Random (19) ;

write (a[i],' ') ;

end;

writeln;

for i:=1 to 14 do

if (a[i] mod 2=1) and (a[i]<10)

then write (a[i],' ') ;

readln

end.

2)

var

a:array[1 ... 15] of integer;

n, k, i:integer;

begin

for i:=1 to 15 do

begin

a[i]:=Random (29) - 14;;

write (a[i],' ') ;

end;

writeln;

for i:=10 to 15 do

if a[i]<5

then write (a[i],' ') ;

readln

end.