Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
соня1583
19.06.2022 19:57 •
Информатика
Найти произведение отрицательных элементов массива. (delphi 7)
Показать ответ
Ответ:
Lulu117
02.10.2020 03:17
Var a: array [1..20] of integer; mult: longint; i: integer;
begin
randomize;
mult := 1;
for i := 1 to 20 do
begin
a[i] := random(20) - 10;
if a[i] < 0 then mult := mult * a[i];
end;
for i := 1 to 20 do
write(a[i], ' ');
writeln;
writeln(mult);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Pmoshnek
31.12.2021 01:57
на отрезке [2; 3] с шагом 0,1 протабулировать функцию x+2x^3+1,9 (под корнем) x-1,5...
СавелийРямов
09.12.2020 15:53
Створити програму, яка порівняє добуток двох чисел з числом 50 (тобто добуток менший за 50 - умова вірна, добуток більший за 50– умова хибна) , а то я в програмировании...
ZzzGoshAzzZ
24.01.2021 02:31
Графический файл содержит чёрно-белое изображение (без градаций серого) размером 150*150 пикселей. Каков информационный объём этого файла? (Выполнить с ТОЛЬКО степеней...
katja060606
17.03.2023 06:49
3 класс цифровая грамотность...
aishaefendieva
30.04.2022 09:06
Решить по паскалю.с полным решением дано четырехзначное число. найти: а) число, полученное при прочтении его цифр справа налево; б) число, образованное перестановкой...
Champagne
06.03.2020 00:31
По java. на листе в клетку закрашена часть клеток. выделить все различные фигуры, которые образовались при этом. фигурой считается набор закрашенных клеток, достижимых...
FlacJK
30.04.2022 23:15
20% было по защите от тёмных искусств. четверть от оставшихся – по заклинаниям. 25% от оставшихся по астрономии. шестая часть от оставшихся – по трансгрессии. 10% от...
aminyl
01.09.2020 04:07
Примитивные использования при создания модели...
Александр1111111254
27.01.2023 02:48
Любую на выборнадо написать программу на любом языке программирования задано n - количество целых чисел. найти сумму нечетных кратных 5, если таких чисел нет сумму...
trukit
07.04.2020 02:43
Каппа и её слоники 0имя входного файластандартный вводимя выходного файластандартный выводограничение по времени2 секундыограничение по памяти64 мегабайтакаппа любит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
randomize;
mult := 1;
for i := 1 to 20 do
begin
a[i] := random(20) - 10;
if a[i] < 0 then mult := mult * a[i];
end;
for i := 1 to 20 do
write(a[i], ' ');
writeln;
writeln(mult);
end.