Необходимо написать программу в Паскале Записать пять первых положительных элементов массива
Х=(х1,…,х12) подряд в массив Y=(y1,у2,…,у5). Вычислить среднее
геометрическое значение элементов массива Y.
софьячубик
3
09.06.2020 17:50
2 
Популярные вопросы
- Сообщение на тему стрессы и гиподемия...
2 - по падежам 985 карандашей....
1 - Из слов составить во по Робинзону Крузо ) все на фото;) Только...
2 - Знайдіть два числа, сума яких дорівнює 35, а добуток — 15....
2 - 1. Запишите предложения используя SO or NEITHER. 1. Bill can t play...
2 - 2+2 ррливрлдитрррлроитотоо...
2 - Https://thriveglobal.com/?p=1321430&preview_id=1321430&preview_nonce=4cceec1e6d&preview=true...
1 - класс 1)Выберите предложения, осложненные сравнительным оборотом.1)...
3 - Сор по Всемирной Истории 6 класс...
1 - Абсурд суспільного буття в повісті М.Булгакова Собаче серце ....
3
// PascalABC.NET
begin
var a := ArrRandom(12, -10, 30);
a.Println;
var y := a.Where(p -> p > 0).Take(5).ToArray;
var n := y.Length;
Print(y.Product ** (1 / n))
end.