Ученикам первого класса, ежедневно выдаётся бесплатно стакан молока (200 мл), если их вес составляет мнение 30 кг. Определить, сколько литров молока требуется жедневно для одного класса из 25 человек. Вес каждого ученика представлен как элемент массива

Question

Информатика

Кирилич

9 декабря, 01:49

Ученикам первого класса, ежедневно выдаётся бесплатно стакан молока (200 мл), если их вес составляет мнение 30 кг. Определить, сколько литров молока требуется жедневно для одного класса из 25 человек. Вес каждого ученика представлен как элемент массива

+3

Ответы (1)

Знаете ответ?

Натан · Answer 1

Var a:array[1 ... 25] of word;

i, s:longint;

begin

writeln ('vvedit ves uchenika') ;

for i:=1 to 25 do

read (a[i]) ;

for i:=1 to 25 do

if a[i]<30 then s:=s+0.2; / / так как ответ в литрах

writeln (s) ;

readln;

end.