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.