Question

Программа на языке паскаль: найти среднее арифметических положительных, отрицательных и всех из 20 введенных чисел

Answer 1

Ответ:

• begin
• var a := ReadArrInteger(20);
• Println('Ср. положительных:',a.Where(x->x>0).Average);
• Println('Ср. отрицательных:',a.Where(x->x<0).Average);
• Println('Ср. всех:',a.Average);
• end.

Пример работы: