1. Запол­нить массив а [1..14] случайными целыми чис­лами в диапазоне от 1 до 18 и...

Question

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

Answer 1

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)<br>   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<br>   then write(a[i],' ');
readln
end.