Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
dalakovadg
15.07.2021 13:47 •
Информатика
Дан массив из 7 чисел, которые вводятся с клавиатуры, вывести на экран значения элементов массива. сосчитать произведение всех ненулевых элементов массива. pascal abc.net
Показать ответ
Ответ:
Ампфетамін
05.10.2020 23:43
Полная глупость: вводить с клавиатуры данные и тут же их выводить.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('П=',ReadArrReal('Введите 7 чисел:',7).Println.Where(x->x<>0).
Aggregate(1.0,(x,y)->x*y))
end.
Пример
Введите 7 чисел: 3.5 -18.3 0 14 174.32 -15 0.17
3.5 -18.3 0 14 174.32 -15 0.17
П=398597.4972
0,0
(0 оценок)
Популярные вопросы: Информатика
Анастасия5451
31.05.2020 00:23
Какие устройства и программные продукты позволяют увеличить и ускорить процессы обработки информации?...
Haskky
31.05.2020 00:23
Для чего нужны линейка, транспортир, термометр, барометр, компас, телескоп, микроскоп, часы, циркуль...
marshmelloy36
20.06.2022 22:47
Сообщение о том,что произошло одно из четырёх равновероятных событий,несёт информации...
пир14
24.02.2023 19:59
Ввести двумерный массив a 4×3. определить в нём произведение тех элементов, чей модуль лежит вне диапазона [1; 5].с++...
Стаилз2002
24.02.2023 19:59
Ввести двумерный массив аnxm.каждый элемент в массиве чье значение лежит вне диапазона [-8; 6] возвести в квадрат.массив вывести до и после преобразования с++...
мамадочп4а
13.03.2023 02:08
Даны три массива а = (а1, а2, …, аn), b = (b1, b2, …, bm), c = (c1, c2, …, ck). (n, m и k =20, вводятся с клавиатуры). написать программу для последовательного объедения...
adelinapak
07.02.2023 05:52
Найти произведение элементов массива в(14), которые меньше, чем 3....
220505b
07.02.2023 05:52
Картинку размером 10 на 10 пикселей пропорционально увеличили в 5 раз. какой информационный объем будет занимать полученное изображение, если в палитре 256 цветов,...
sofyaoborina12
07.02.2023 05:52
Дана строка из 30 символов, удалить 1 и 5 символ, заменить все точки на запятые, сделать все символы прописными и вставить в конец точку...
Zaichikfoto
07.02.2023 05:52
Дана целочисленная матрица размера 5 на 5. найти минимальный элемент...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('П=',ReadArrReal('Введите 7 чисел:',7).Println.Where(x->x<>0).
Aggregate(1.0,(x,y)->x*y))
end.
Пример
Введите 7 чисел: 3.5 -18.3 0 14 174.32 -15 0.17
3.5 -18.3 0 14 174.32 -15 0.17
П=398597.4972