Пожаловаться
- 16.06.2017 01:31
- Информатика
- remove_red_eye 10163
- thumb_up 38
Ответы и объяснения 1
// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
begin
var a:=ArrRandom(10,1,10); a.Println;
var s:=a.Aggregate(0,(x,y)->x+(y+2));
for var i:=0 to 9 do Writeln('C[',i+1,']=',s/sqrt(abs(a[i])));
end.
Пример:
2 9 10 8 10 8 7 10 3 3
C[1]=63.64
C[2]=30.00
C[3]=28.46
C[4]=31.82
C[5]=28.46
C[6]=31.82
C[7]=34.02
C[8]=28.46
C[9]=51.96
C[10]=51.96
// Cборка 1590 от 03.12.2017
begin
var a:=ArrRandom(10,1,10); a.Println;
var s:=a.Aggregate(0,(x,y)->x+(y+2));
for var i:=0 to 9 do Writeln('C[',i+1,']=',s/sqrt(abs(a[i])));
end.
Пример:
2 9 10 8 10 8 7 10 3 3
C[1]=63.64
C[2]=30.00
C[3]=28.46
C[4]=31.82
C[5]=28.46
C[6]=31.82
C[7]=34.02
C[8]=28.46
C[9]=51.96
C[10]=51.96
Пожаловаться
- 17.06.2017 08:30
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы