Цитата:
Сообщение от Liya Opium
В вещественном массиве размером 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.