Home
О нас
Products
Services
Регистрация
Войти
Поиск
TequilaSunrise
@TequilaSunrise
November 2021
1
24
Report
ребят, помогите, пожалуйста, очень нужна помощь
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
Answers & Comments
iadva
Verified answer
Var n, i, tmp, Average, More:integer;
//-----------------------------------------------------------------
begin
write('Days: '); readln(n);
Average:=0;
More:=0;
for i:=1 to n do begin
Readln(tmp);
Average:=Average+tmp;
if tmp>10 then more:=more+1;
end;
Writeln;
Writeln(Average/n);
if more>3 then Writeln('YES') else Writeln('NO');
end.
2 votes
Thanks 0
More Questions From This User
See All
TequilaSunrise
August 2022 | 0 Ответы
pomogite so 2 oj zadachkoj pozhalujsta budu bezmerno blagodarna
Answer
TequilaSunrise
August 2022 | 0 Ответы
rebyat pomogite pozhalujsta gonachorov oblomov
Answer
TequilaSunrise
August 2022 | 0 Ответы
pomogite pozhalujsta razobratsya s etim nomerom30685cd85022551b3b06f480366f034e 9348
Answer
TequilaSunrise
August 2022 | 0 Ответы
zaranee spasibo hh
Answer
TequilaSunrise
August 2022 | 0 Ответы
rebyat pomogite pozhalujsta ochen nuzhna pomosh chtoby razobratsya v obshem vsya
Answer
TequilaSunrise
August 2022 | 0 Ответы
pomogite reshit pozhalujsta s otvetom ne shoditsya pochemu to
Answer
TequilaSunrise
August 2022 | 0 Ответы
mozhet byt perechen vseh plyusov i minusov kazhdogo cheloveka iz moego okruzheniya
Answer
TequilaSunrise
August 2022 | 0 Ответы
rebyat pomogite pozhalujsta kto sharit v parametrah 236 pod cifroj 2
Answer
TequilaSunrise
August 2022 | 0 Ответы
pomogite pozhalujsta pascal576e153f642240b54207657d38a0571c 77265
Answer
TequilaSunrise
August 2022 | 0 Ответы
pomogite pozhalujsta razobratsyac854e6c75a67c004e9072fd33c62fd2e 89345
Answer
рекомендуемые вопросы
rarrrrrrrr
August 2022 | 0 Ответы
o chem dolzhny pozabotitsya v pervuyu ochered vzroslye pri organizacionnom vyvoze n
danilarsentev
August 2022 | 0 Ответы
est dva stanka na kotoryh vypuskayut odinakovye zapchasti odin proizvodit a zapcha
myachina8
August 2022 | 0 Ответы
najti po grafiku otnoshenie v3v1 v otvetah napisano 9 no nuzhno reshenie
ydpmn7cn6w
August 2022 | 0 Ответы
Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...
millermilena658
August 2022 | 0 Ответы
opredelite kak sozdavalas i kto sozdaval arabskoe gosudarstvo v kracii
MrZooM222
August 2022 | 0 Ответы
ch ajtmanov v rasskaze krasnoe yabloko ispolzuet metod rasskaz v rasskaze opi
timobila47
August 2022 | 0 Ответы
kakovo bylo naznachenie kazhdoj iz chastej vizantijskogo hrama pomogite pozhalujsta
ivanyyaremkiv
August 2022 | 0 Ответы
moment. 6....
pozhalujsta8b98a56c0152a07b8f4cbcd89aa2f01e 97513
sarvinozwakirjanova
August 2022 | 0 Ответы
pomogite pozhalusto pzha519d7eb8246a08ab0df06cc59e9dedb 6631
×
Report "ребят, помогите, пожалуйста, очень нужна помощь..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Var n, i, tmp, Average, More:integer;//-----------------------------------------------------------------
begin
write('Days: '); readln(n);
Average:=0;
More:=0;
for i:=1 to n do begin
Readln(tmp);
Average:=Average+tmp;
if tmp>10 then more:=more+1;
end;
Writeln;
Writeln(Average/n);
if more>3 then Writeln('YES') else Writeln('NO');
end.