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

July 2022 1 48 Report

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

Answers & Comments

LRSM

Ответ:

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

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

1 votes Thanks 1

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

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

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

Answers & Comments

sostavit programmu vychisleniya funkcii na paskale abcnet na zadannyh promezhutka

8 ispolzuya var const writeln i td

programma na yazyke paskalavs najti minimalnoe iz 50 vvedennyh chisel

programme na yazyke paskalavs uslovie najti kolichestvo otricatelnyh chisel i s

programma na yazyke paskal najti srednee arifmeticheskih iz 20 vvedennyh chisel

programma na yazyke paskalavs v odnomernom massive iz n elementov opredelit po

sostavit programmu dlya nahozhdeniya proizvedeniya modulej otricatelnyh znachenij f

napisat na paskale v massive iz n elementov najti proizvedenie otricatelnyh el

na paskale v gruppe 15 chelovek najti kolichestvo chelovek iz gruppy chej rost ne

sostavit programmu vychisleniya funkcii na paskale na zadannyh promezhutkah i s za

рекомендуемые вопросы

Helpful Links

Helpful Social