Pascal ABC Середню групу дитячого садочку вивели на прогулянку. Скільки дівчаток і скільки хлопчиків видно з-за паркану,якщо зріст хлопчиків задається у см відємними числами,а дівчаток додатніми числами у вигляді цілих значень ...
Pascal ABC
Середню групу дитячого садочку вивели на прогулянку. Скільки дівчаток і скільки хлопчиків видно з-за паркану,якщо зріст хлопчиків задається у см відємними числами,а дівчаток додатніми числами у вигляді цілих значень а1,а2,..,an?Крім того у дівчаток на голові бантик висотою 10 см,а висота паркану Н см?
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы