Регистрация
vipvip16tk
06.06.2020 08:56
Информатика
Есть ответ 👍

Буква н в пайтон. ів​

174
323
Посмотреть ответы 1

Ответы на вопрос:

Sanchos106
Sanchos106
4,5(48 оценок)

unit math;

var

    d,m: array[1..20] of integer;

    sr: real;

    kol,s: integer;

begin

  for i: =1 to 20 do begin

      d[i]: =randomrange(140,180);

      writeln('рост ',i,'-ой девочки =',d[i],' см');

      m[i]: =randomrange(140,190);

      writeln('рост ',i,'-го мальчика= ',m[i],' см');

  end;

  s: =0; sr: =0; kol: =0;

  for i: =1 to 20 do s: =s+m[i];

  sr: =s/20;

  writeln('средний рост мальчиков= ',sr,' см');

  for i: =1 to 20 do

  if d[i]> sr then kol: =kol+1;

  writeln('колличество девочек превышающий средний рост мальчиков= ',kol);

end.

 

Популярно: Информатика