Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
anuaraminov10ozppq2
03.04.2021 05:05 •
Информатика
Заполнить одномерный массив 5 элементами случайным образом в диапазоне от -10 до 10 .вычислить произведение элементов массива .произведение -288
Показать ответ
Ответ:
nastyaozernova
06.10.2020 23:21
//PascalABC.Net
//(c) NaaMan
var
a : array of integer;
n, i : integer;
p : real;
begin
n := 5;
a := new integer[n];
a := ArrRandom(n, -10, 10);
p := 1;
for i:= 0 to n-1 do
if a[i] < 0 then p *= a[i];
println(a);
writeln('Произведение всех отрицательных равно ', p)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
danikstremers1
11.09.2021 00:57
Напишите программу с функций def, которая рисует три квадрата разных цветов, как на этом изображении (размер «квадрата»неважен, только форма и любые три разных цвета)...
Kate7779393727
03.10.2022 07:54
Объект ListBox и его основные свойства ...
Marmanril12
22.06.2022 08:09
Створити гру: Запрограмуйте черепашек так, щоб вони, встав перед стартом (15 ліній), почали рухатись з різної швидкістю. В онлайн середовище Trinket, тема 03. Черепашьи бега підпункт...
КристинаВощевоз55555
12.12.2022 00:33
Какой тип данных нужно задать для поля Группа таблицы базы данных Студенты ? ФОТО СНИЗУ Текстовый Дата/Время Числовой...
fuhohejo
09.01.2021 09:12
Колонка B&O BEOSOUND 3 не включается и не заряжается. не заряжал лет 5...
bugaamn1
22.10.2022 07:13
Найдите значение логического выражения: (1 или 0) и не (1 и 0)В ответе укажите ответ в виде 0 или 1.Найдите значение логического выражения:0 и (0 или 1)В ответе укажите ответ в виде...
abakanovalera
26.09.2021 01:43
Дана следующая логическая схема. Упростите ее, используя минимальное количество вентилей....
mketol4663
16.11.2020 20:53
Решите примеры в порядке действий и запишите их: (806×450+430×180)÷(1310-565020÷657) зарание при огромное...
isadulla
13.05.2020 09:22
Из двух городов одновременно навстречу друг другу отправились два велосипедиста проехав некоторую часть пути первый велосипедист сделал остановку на 30 минут а затем продолжил движение...
Vitaliy11111111
23.08.2022 19:31
Сочинение (6-7 предложении) со словами на фото...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//(c) NaaMan
var
a : array of integer;
n, i : integer;
p : real;
begin
n := 5;
a := new integer[n];
a := ArrRandom(n, -10, 10);
p := 1;
for i:= 0 to n-1 do
if a[i] < 0 then p *= a[i];
println(a);
writeln('Произведение всех отрицательных равно ', p)
end.