Используя язык программирования Паскаль решить задачи: № 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.