Uses
Crt;
Var
i, N, kol: byte;
sum_rost, sr_rost: real;
team: array[1..100] of real;
Begin
sum_rost := 0.0;
sr_rost := 0.0;
kol := 0;
write('Введите количество членов команды');
read(N);
writeln('Введите рост каждого члена команды');
for i := 1 to N do
begin
readln(team[i]);
sum_rost := sum_rost + team[i];
end;
sr_rost := sum_rost / N;
for i := 1 to N do
if (team[i] > sr_rost) then
kol := kol + 1;
writeln('Количество членов команды, рост которых превышает средний по команде (', sr_rost:4:2, ')');
write(' равно ', kol);
End.
Я надеюсь надо было на паскале написать?)
140
Объяснение:
ландыши & васильки - 650
ландыши & лютики - 230
ландыши & (васильки | лютики) - 740
ландыши & васильки & лютики - ?
ландыши & (васильки | лютики) = (ландыши & васильки) | (ландыши & лютики) - распределительный закон
Обозначим:
ландыши & васильки = А
ландыши & лютики = В
Тогда:
ландыши & васильки & лютики = А & В (ландыши & васильки & ландыши & лютики = ландыши & васильки & лютики - закон повторения)
А | В = А + В - А & В
А & В = А + В - А | В
А & В = 650 + 230 - 740 = 140