Дан массив целых чисел. требуется найти количество элементов, которые больше и меньше среднего арифметического всех элементов массива
289
385
Ответы на вопрос:
var a: array[1..10]of integer;
i,n1,n2: integer;
s: real;
begin
for i: =1 to 10 do begin
readln(a[i]);
s: =s+a[i];
end;
s: =s/10;
for i: =1 to 10 do begin
if a[i]> s then inc(n1);
if a[i]< s then inc(n2);
end;
writeln('bolshe - ',n1,' menshe - ',n2);
end.
Сходства; у них на середине красная точка и полоска совпадает.
Различие; на первом семь столбо есть на втором две машины
Объяснение:
100% правильно
Популярно: Информатика
-
vershinindaniil127.04.2021 15:22
-
Kseniya152117.01.2020 21:10
-
eeeeroock23.11.2022 21:15
-
RUSsamir27.03.2020 22:14
-
varlamovanastya17.01.2022 10:28
-
dina75124.04.2021 05:52
-
ruana200526.04.2020 10:40
-
Engineeeer25.03.2021 15:44
-
WFCPDF12.05.2022 23:46
-
AGIDELKA200416.07.2022 15:24