Регистрация
Dilya173
16.03.2020 15:51
Информатика
Есть ответ 👍

Модель і властивості моделі жіночої сукнімодель и свойства модели женского платья

149
176
Посмотреть ответы 1

Ответы на вопрос:

tatyanamasenko
tatyanamasenko
4,6(69 оценок)
Var   a: array[1..100] of integer;   n,sum,i: integer;   sa: real; begin   readln(n);   sum: =0;   sa: =0;   for  i: =1 to n do   begin     readln(a[i]);   sa: =sa+a[i];   end;   sa: =sa/n;   for  i: =1 to n  do   if a[i]> sa then     sum: =sum+1;   writeln(sum); end.

Популярно: Информатика