Вопрос по информатике:
Надо сделать все это в одной программе: нахождение кол-во отрицательных элементов, суммы отрицательных элементов, среднее и наибольшее значение для положительных
Сделайте пожалуйста, отдаю все свои баллы
Пожаловаться
- 18.10.2017 18:24
- Информатика
- remove_red_eye 16317
- thumb_up 35
Ответы и объяснения 2
//PascalABC.NET 3.3,сборка 1625 от 16.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(20,-99,99); mas.println;
Writeln('кол-во отрицательных элементов=',mas.Where(t->t<0).Count);
Writeln('сумма отрицательных элементов=',mas.Where(t->t<0).sum);
Writeln('среднее положительных=',mas.Where(t->t>0).Average);
Writeln('наибольшее положительных=',mas.Where(t->t>0).Max);
end.
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(20,-99,99); mas.println;
Writeln('кол-во отрицательных элементов=',mas.Where(t->t<0).Count);
Writeln('сумма отрицательных элементов=',mas.Where(t->t<0).sum);
Writeln('среднее положительных=',mas.Where(t->t>0).Average);
Writeln('наибольшее положительных=',mas.Where(t->t>0).Max);
end.
Пожаловаться
- 19.10.2017 07:01
- thumb_up 37
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10, -100, 100);a.Println;
Writeln('Количество отрицательных элемнтов -> ', a.Where(t -> t < 0).Count);
Writeln('Сумма отрицательных элеменов ->', a.Where(t -> t < 0).Sum);
Writeln('Среднее значение положительных элементов ->', a.Where(t -> t > 0).Average);
if a.Where(t -> t > 0).Count > 0 then
Writeln('Максимальное положительное значение -> ', a.Where(t -> t > 0).Max)
else Writeln('Положительных чисел нет');
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10, -100, 100);a.Println;
Writeln('Количество отрицательных элемнтов -> ', a.Where(t -> t < 0).Count);
Writeln('Сумма отрицательных элеменов ->', a.Where(t -> t < 0).Sum);
Writeln('Среднее значение положительных элементов ->', a.Where(t -> t > 0).Average);
if a.Where(t -> t > 0).Count > 0 then
Writeln('Максимальное положительное значение -> ', a.Where(t -> t > 0).Max)
else Writeln('Положительных чисел нет');
end.
Пожаловаться
- 20.10.2017 15:33
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы