Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Rarete
21.03.2020 08:20 •
Информатика
Задан одномерный массив целых чисел. вывести все нечетные элементы массива найти сумму нечетных элементов этого массива. найти количество нечетных элементов массива найти номер наименьшего элемента в массиве
Показать ответ
Ответ:
Myziki
04.08.2020 13:07
// PascalABC.NET 3.3, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(10,-99,99); mas.Println;
var t:=mas.Where(t->t mod 2 <> 0); Write('нечетные элементы ='); t.Println;
Writeln('сумма нечетных элементов =',t.Sum);
Writeln('количество нечетных элементов =',t.Count);
Writeln('номер найменьшего элемента =',mas.IndexMin+1);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
MariyaKokhonova
03.05.2023 00:21
Построить формулу в excel, фирма имеет задолженность 5₽. для погашения долга решено вносить в банк ежемесячно по 65000₽ в течении 5 лет. годовая процентная ставка составляет...
ЕвгешаК2003
18.04.2020 20:03
створіть проект, у якому вводяться значення елементів табличної величини з 15 pізних дійсних чисел у багаторядковому текстовому полі, визначається найменше серед значень...
kristinashevku1
22.07.2020 02:31
Условный оператор. С клавиатуры ведены два числа. Если первое число равно квадрату второго, то к первому числу прибавить 2, а от второго отнять 4, в противном случае...
Аметисса1Грэсс
11.07.2022 15:56
Решить для программирования с++...
svetburtseva20
02.09.2021 00:45
Как сделать анимированный сдвиг картинок при скролле страницы сайта? ...
gvg4
28.05.2021 16:24
6класс ! информатика ! можно ли таблицу вставить а потом дорисовать элементы ? объясните почему ?...
али419
05.12.2020 10:35
У исполнителя Сигма две команды, которым присвоены номера: 1. прибавь 4; 2. раздели на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Сигма увеличивает...
daniil14537
18.03.2022 04:44
нужна Паскаль. Девятый класс. Написать код на языке программирования тестирующей программы по любой дисциплине с подсчетом количества правильных ответов. Подсчет количества...
sveta17032001
15.07.2022 21:35
Здравствуй. Уже никак, поздно. А на 4-5 - без проблем.Напиши программу, которая среди трехзначных чисел определяет количество чисел делящихся на С. Число С вводим самостоятельно....
sir13
28.06.2021 05:11
Команда, которая отображает идентификатор процесса, который использует больше всего ЦПУ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(10,-99,99); mas.Println;
var t:=mas.Where(t->t mod 2 <> 0); Write('нечетные элементы ='); t.Println;
Writeln('сумма нечетных элементов =',t.Sum);
Writeln('количество нечетных элементов =',t.Count);
Writeln('номер найменьшего элемента =',mas.IndexMin+1);
end.