Используя язык программирования Паскаль решить задачи: № 1 Массив А [1..10] целого типа заполнен случайными числами от 1 до 99. Найти количество тех элементов, значения лежат в интервале [40, 70]. № 2 Массив А [1..10] целого типа заполнен случайными числами от 1 до 99. Найти количество нечетных элементов.​

const

 n=10;

var

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

 count1,count2,i:integer;

begin

 count1:=0; count2:=0;

 for i:=1 to n do

   begin

     a[i]:=random(99)+1;

     write(a[i]:4);

     if (a[i]>=40) and (a[i]<=70) then

       inc(count1);

     if a[i] mod 2 = 1 then

       inc(count2);

   end;

 writeln;

 writeln('№1: ',count1);

 writeln('№2: ',count2);

end.