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

Liya Opium · 16.06.2010, 14:04

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

Vladimir_S · 16.06.2010, 14:16

Цитата:

Сообщение от 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.

Liya Opium · 16.06.2010, 14:27

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

16.06.2010, 14:04	#1 (permalink)
Liya Opium Новичок Регистрация: 16.06.2010 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Программу подсчёта, при ограничениях В вещественном массиве размером 20 элементов задан вес спортсменок одной команды (в килограммах с округлением до десятых). Написать программу подсчёта количества спорт-сменок, чей вес превышает 50 кг, но не более 57 кг. Если таких спортсменок нет, сообщите об этом.

16.06.2010, 14:04
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ознакомьтесь с этими ссылками Сделайте программу Написать программу на С++ Посоветуйте программу Составить программу

16.06.2010, 14:27	#3 (permalink)
Liya Opium Новичок Регистрация: 16.06.2010 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо большое!!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070