С клавиатуры вводится 10 чисел,определить кол-во чисел попадающих в интервал от -15 до...

Question

С клавиатуры вводится 10 чисел,определить кол-во чисел попадающих в интервал от -15 до 30. в турбо паскале

Answer 1

Var a:array [1..10] of integer;
     i,k:integer;
begin
  k:=0;
  for i:=1 to 10 do
   begin
    write (i,'-oe chislo: ');
    readln (a[i]);
    if (a[i]>-15) and (a[i]<30) then inc(k);<br>   end;
  writeln ('Kol-vo: ',k);
end.