Выводится на экран последовательность 20 случайных чисел из промежутка
[-10,10]. Определить количество отрицательных чисел больших -5 в данной
последовательности.

vara:array[1..1000]of integer;i,k:integer;beginfor i:=1 to 20 doa[i]:=random(20)-10;for i:=1 to 20 dowrite(a[i],' ');for i:=1 to 20 do beginif (a[i]<0)and(a[i]>(-5))then k:=k+1;end;writeln;writeln(k);end.