Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.05.2018 22:53
- Информатика
- remove_red_eye 4703
- thumb_up 17
Ответы и объяснения 1
Const
nn=20;
var
i,k,n,s:integer;
a:array[1..nn] of integer;
b:real;
begin
Read(n);
for i:=1 to n do Read(a[i]);
k:=0; s:=0; i:=2;
while i<=n do
begin
s:=s+a[i];
k:=k+1; a[k]:=a[i];
i:=i+1
end;
b:=s/n;
k:=0; i:=1;
while i<=n do
begin
if a[i]>=b then
begin
k:=i;
s:=s+a[k]
end;
i:=i+1
end;
Writeln(k+s)
end.
Результат выполнения
6 1 2 0 1 3 2
23
- 26.05.2018 05:48
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.