Решить на языке pascal abc.net имеется последовательность натуральных чисел, число элементов которой нечётно. ноль – признак конца и в число элементов последовательности не входит. определите, является ли среднее из чисел последовательности больше среднего арифметического данной последовательности и выдайте полученный результат в виде yes | no.
159
374
Ответы на вопрос:
Var a: array [1..100001] of longint; r,k: real; s: longint; begin t: =1; k: =0; while t< > 0 do begin read(t); inc(k); a[k]: =t; s: =s+t; end; r: =s/k; if a[k+1 div 2]> r then writeln('yes') else writeln('no'); end.
Популярно: Информатика
-
Nastik663410.04.2023 04:48
-
liza144916.08.2021 23:55
-
Lqoki1111.01.2022 22:01
-
dias226611.02.2022 04:22
-
rita145roden21.12.2020 04:54
-
dinbili205.10.2020 21:20
-
baharaliyeva19.06.2021 06:22
-
asanovaabibe2009.04.2020 00:48
-
вася78424.06.2021 10:26
-
Аксинья2110.10.2022 23:16