16.06.2010, 14:04 | #1 (permalink) |
Новичок
Регистрация: 16.06.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программу подсчёта, при ограничениях
|
16.06.2010, 14:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ознакомьтесь с этими ссылками Сделайте программу Написать программу на С++ Посоветуйте программу Составить программу |
16.06.2010, 14:16 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
16.06.2010, 14:27 | #3 (permalink) |
Новичок
Регистрация: 16.06.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|