Программу подсчёта, при ограничениях

[Liya Opium]

Программу подсчёта, при ограничениях

В вещественном массиве размером 20 элементов задан вес спортсменок одной команды (в килограммах с округлением до десятых). Написать программу подсчёта количества спорт-сменок, чей вес превышает 50 кг, но не более 57 кг. Если таких спортсменок нет, сообщите об этом.

 

[Vladimir_S]

В вещественном массиве размером 20 элементов задан вес спортсменок одной команды (в килограммах с округлением до десятых). Написать программу подсчёта количества спортсменок, чей вес превышает 50 кг, но не более 57 кг. Если таких спортсменок нет, сообщите об этом.

Пожалуйста:

Const
 N=20;
VAR
 Nactual:BYTE;
 A:ARRAY[1..N] of REAL;
 i:INTEGER;
BEGIN
 RANDOMIZE;
 WriteLn('Initial array:');
 For i:=1 to N do
  begin
   A[i]:=(RANDOM(400)+400)/10;
   Write(A[i]:5:1);
  end;
 WriteLn;
 Nactual:=0;
 For i:=1 to N do
  If (A[i]>50) and (A[i]<=57) then
   INC(Nactual);
 If Nactual=0 then
  Writeln('There are no sportswomen having the desired weght')
 else
  Writeln('There are ',Nactual,' sportswomen having the desired weght');
 ReadLn;
END.

 

[Liya Opium]

Спасибо большое!!