Question

Решите, пожалуйста
Заполнить массив из 13 элементов случайными числами в интервале [-200;100] и найти количество отрицательных элементов массива меньше-семи и больше -двадцати.

Answer 1

 const     n = 13;
      var   a : array [1..n] of integer;
   i,k : integer;
  begin
   randomize;
    for i := 1 to n do
      a[i] := -200 + random(301);
   k := 0; 
    for i := 1 to n do
     if  (a[i]<-7)      and (a[i]>-20) then
       k := k +1; 
         writeln (k);
      end.