Предмет: Информатика, автор: lik18da

составить программу на языке паскальАВС: В МАССИВЕ ИЗ n элементов найти среднее арифметическое отрицательных и среднее арифметическое положительных.

Ответы

Автор ответа: LRSM

Ответ:

begin
var a := ReadArrInteger(ReadInteger('N:'));
Println('Отрицательных:', a.Where(x -> x.IsOdd).Average);
Println('Положительных:', a.Where(x -> x.IsEven).Average);
end.

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

Приложения:

LRSM: И тут тоже : / Чего то я заглючил.
x.IsOdd заменить на x<0, а x.IsEven заменить на x>0.

LRSM: Да нет, это я знаю)) Просто условие перепутал, можете посмотреть на строку, которую я вводил, я бы отрицательные ввёл для проверки, а так... Ничего, проехали.

LRSM: Много похожих решал, так запутался просто)

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Русский язык, автор: 18rebenok

не жалею,не зову,не плачу,не любили,не знали,был,не знаю,провинился,не пишутся,случаются, не написал, случилось, не расставайтесь, не приедем, не отвечает, не слышит, не взлюбила,не хочет,приласкать,не расчешет,не порадует,не пускает,погулять неневидит.
ОПРЕДЕЛИТЬ НАКЛОНЕНИЕ, ВРЕМЯ, ЛИЦО, ЧИСЛО,
РОД,ВИД,СПРЯЖЕНИЕ,ПЕРЕХОДНОСТЬ,ВОЗВРАТНОСТЬ.
заранее спасибо)))

1 год назад

Предмет: Русский язык, автор: nepokrytova

Пишется НН в сове:1) гусин...ый, 2) ржан...ой, 3)ледян...ой, 4)землян...ой, 5) болезн...ный.ОЧЕНЬ НУЖНО СРОЧНО!

1 год назад

Предмет: Қазақ тiлi, автор: тимур2002121

зат есым что такое понять не могу блин