Ученикам первого класса ,ежедневно выдаётся бесплатно стакан молока (200мл),если их вес...

Question

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

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; //так как ответ в литрах<br>  writeln(s);
  readln;
end.