Ответы на вопрос:
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.
Популярно: Информатика
-
Nasvay22809.05.2022 18:32
-
katmik0414.09.2020 17:54
-
nastyafominto30.06.2023 20:19
-
milanagorbovsk27.02.2020 15:47
-
крис90309.09.2021 00:43
-
gela0610.09.2022 18:02
-
Vovan325615.12.2022 05:34
-
Вероника557715.07.2020 22:18
-
Ариана2003141020.08.2022 14:54
-
Subject33821.05.2023 09:59