Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
A8L3E1X
14.06.2022 07:39 •
Информатика
Найти произведение отрицательных элементов массива. (delphi 7)
Показать ответ
Ответ:
EvilIncognito
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 оценок)
Популярные вопросы: Информатика
vvvvcrrrq
11.03.2022 06:02
Дана таблица а[1: 100] найти количество элементов этой таблицы, больших среднего арифметического всех ее элементов...
AnnaGlyuza0436
16.12.2020 18:38
Вычислите объём памяти необходимый для переменных из приведённых ниже объявлений: b) type Vector = array[1..n] of real; Matrice = array[1..n] of Vector; var A, B, C :...
vika1852
09.01.2020 18:30
Графическое изображение с количеством отображаемых цветов, равным16 777 216, занимает весь экран монитора с разрешением 1280x1024пикселей. Найдите объем видеопамяти,...
dashasuslova007
05.02.2023 06:48
Все ! день который запомнился на от лица мальчика 12 лет план: когда,где,кто,чточто случилосьперед главным событиемглавное событиечто случилось в конце/твои чувства...
vladugan
05.02.2023 06:48
Написать диалог на языке на тему ссора с другом 14 реплик...
Saharok00711
05.02.2023 06:48
Система: 4x^2-4xy+y^2=9; 3x^2+2xy-y^2=36 ...
nnika1015
05.02.2023 06:48
Вравнобедренном треугольнике abc (ab = bc) высота ae = 12, а основание ac = 15. найдите площадь треугольника....
oksanadavidienozexft
05.02.2023 06:48
Отрезки ав и сd пересекаются в точке о. ао/ов=со/оd=3/5. ас=6см, db-?...
Всеникизаняты00
05.02.2023 06:48
Максимальный ! схематично изобразить социальную структуру российской империи 19 века( желательно по учебнику россии 9 класс а.н. сахаров, а.н. бахнов параграф 33)❤️ с...
kofer
05.02.2023 06:48
При якій температурі кінетична енергія поступального руху молекули гідрогену дорівнює енергії фотона з довжиною хвилі 0,4 мкм...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.