Verified answer

Ответ:

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

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