Напишите, пожалуйста, решения этих задач на языке Pascal ABC:1) В массиве

1) var a: array [1..10] of integer;

i: integer;

begin

for i:=1 to 10 do begin

a[i]:=random(46);

write(a[i],' ');

end;

writeln;

for i:=1 to 10 do  

if a[i] div 10 = 3 then write(a[i],' ');

end.

2) ВНИМАНИЕ! ВЫВОДИТ ТОЛЬКО НЕЧЕТНЫЕ ЧИСЛА, ТАК КАК ПОЯВЛЕНИЕ ОТРИЦАТЕЛЬНЫХ В ДАННОМ Спектре Невероятно

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

i,j: integer;

begin

j:=0;

for i:=1 to 10 do

begin

a[i]:=random(46);

if odd(a[i]) then inc(j);

write(a[i],' ');

end;

writeln;

writeln('Количество нечетных чисел в массиве: ',j);

end.