Pascal ABC Середню групу дитячого садочку вивели ** прогулянку. Скільки дівчаток і...

Question

Pascal ABC
Середню групу дитячого садочку вивели на прогулянку. Скільки дівчаток і скільки хлопчиків видно з-за паркану,якщо зріст хлопчиків задається у см відємними числами,а дівчаток додатніми числами у вигляді цілих значень а1,а2,..,an?Крім того у дівчаток на голові бантик висотою 10 см,а висота паркану Н см?

Comments

Пишете на украинском, так хоть пишите правильно! (від'ємними)

---

Спасибо вам)

Answer 1

Var
  i,n,h,m,d,r:integer;
begin
  Write('Количество детей: '); Read(n);
  Write('Высота забора: '); Read(h);
  Writeln('Вводите через пробел рост детей (мальчиков - с минусом');
  m:=0; d:=0;
  for i:=1 to n do
  begin
    Read(r);
    if (r<0) and (-r>h) then Inc(m)
    else
      if r+10>h then Inc(d)
  end;
  Writeln('Видно мальчиков- ',m,', девочек- ',d)
end.
 
Контрольное решение
Количество детей: 8
Высота забора: 112
Вводите через пробел рост детей (мальчиков - с минусом
-119 -124 118 107 -115 113 -111 105
Видно мальчиков- 3, девочек- 4