Решить задачку в PascalПодробнее на фото

Решить задачку в Pascal
Подробнее на фото

Задать свой вопрос
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)-gt;x+(y+2));
  for var i:=0 to 9 do Writeln('C[',i+1,']=',s/sqrt(абс(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


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт