Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ghtrwsd18
11.03.2023 08:41 •
Информатика
Дан массив а(15). его элементы случайным образом от -35 до 50. найти сумму и среднее значение отрицательных эл-тов, сумму и кол-во положительных эл-тов. решить всё в паскале
Показать ответ
Ответ:
ChristmasNastya
28.09.2020 13:28
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(15,-35,50); a.Println;
Writeln('Сумма отр.=',a.Where(x->x<0).Sum,', ср.арифм.отр=',
a.Where(x->x<0).Average:0:5);
Writeln('Сумма пол.=',a.Where(x->x>0).Sum,', кол-во пол.=',
a.Where(x->x<0).Count)
end.
Тестовое решение
13 9 18 -29 -33 7 41 -15 -2 10 7 -32 13 16 -1
Сумма отр.=-112, ср.арифм.отр=-18.66667
Сумма пол.=134, кол-во пол.=6
0,0
(0 оценок)
Популярные вопросы: Информатика
Viktoria1289
03.09.2020 12:01
Программа выдаёт ошибку когда ввожу (11-11 ооо), что делать? program number; var a,b,c:string; x,y,z:integer; begin writeln( Введите номер автомобиля ); readln(a);...
назар163
21.07.2021 17:47
Відоме натуральне трицифрове число. Утворіть з цифр даного числа найбільше трицифрове число. Чи дорівнює воно даному?...
ксе16
29.04.2020 14:25
Python. Дан список, выведите все комбинации из двух чисел для этого списка. Повторять комбинации не нужно, то есть если вывели 1 2, то выводить 2 1 не требуется....
aleksa604
10.01.2022 02:03
найти ошибку в программе на с++ задача и моя программа прикреплены. вроде всё правильно, но при вводе как в примере, у меня выходит yes вместо no...
hickov2003
24.11.2021 20:41
Докажите Сочетательный закон для логического сложение с таблица истинности....
elyaivanova85
15.05.2020 19:38
Найти произведение элементов одномерного массива, состоящего из элементов [-23,34]. Элементы вводятся с клавиатуры. ...
asilwa1190
14.11.2021 15:17
Сколько единиц в двоичной записи числа 65? это не два ...
KatyLala
26.02.2022 05:04
Напишите программу, которая будет выводить на экран числа в порядке возрастания. ,...
ayala041
19.03.2023 19:56
Задано речення. скласти програму, яка визначає і виводить на екран найбільшу кількість прогалин, розташованих підряд. (пайтон)...
Мандер
02.10.2021 20:53
Какую длину имеет на карте отрезок, изображающий расстояние в 45 км, если масштаб карты 1: 1 000 000...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ArrRandom(15,-35,50); a.Println;
Writeln('Сумма отр.=',a.Where(x->x<0).Sum,', ср.арифм.отр=',
a.Where(x->x<0).Average:0:5);
Writeln('Сумма пол.=',a.Where(x->x>0).Sum,', кол-во пол.=',
a.Where(x->x<0).Count)
end.
Тестовое решение
13 9 18 -29 -33 7 41 -15 -2 10 7 -32 13 16 -1
Сумма отр.=-112, ср.арифм.отр=-18.66667
Сумма пол.=134, кол-во пол.=6