tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти произведение отрицательных
Найти произведение отрицательных элементов массива. (delphi 7)
Rufa77
3 17.06.2019 06:10
3
Ответы
ktoto215
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Ulia200512
13.11.2020 23:09
(sin(1,1²×42)+tg(180×11:3,3))×3,7³...
lyubimov20051
13.11.2020 23:09
Определите, что будет напечатано в результате работы программы....
1234567890825
13.11.2020 23:11
В алфавите племени БУМ всего 4 буквы (А, У, М, Б), один знак препинания (.) и для разделения слов используется пробел. Подсчитали, что в популярном романе «МУБА» содержится 10000...
maksimenkokostp088j4
13.11.2020 23:12
Что означает запись v:8:2 ?...
sashaprofatilo
13.11.2020 23:13
Распределение вероятностей дискретной случайной величины имеет вид: X P 0,1 0,12 0,1 0,1 0,1 0,09 0,07 0,32 Определить число N значений случайной величины, при которых энтропия...
ХранительТьмы228
13.11.2020 23:22
Кто играет в бравл старс?...
О2Л3Я4
25.12.2020 21:15
Откройте файл task.html Биатлонист промохнулся по первой мишени, попал по всем остальным, на последней мишени техника дала сбой. Используя псевдоклассы first-child и last child...
milka876
12.09.2019 22:00
Средства взаимодействия человека - это интерфейс. ответьте...
жанна19882
16.08.2019 05:50
Напишите сообщение о подмосковных усадьбах 18 - сер. 19 века. , пишите только ответ, не надо писать на подобии: читай учебник или стыдно этого не знать . если знаете, то пишите...
Svetbor04
16.08.2019 05:50
Длина пещеры 300метров туристы метров во сколько раз пройденный путь меньше оставшегося?...
Популярные вопросы
Choose theme. Write down an opinion essay. Do not forget to use appropriate...
1
1.Рассчитать норматив оборотных средств на запасные части, незавершённое производство,...
3
Здравствуйте надо Заранее огромнейшее Раскрой скобки. Подчеркни слова-подсказки....
1
Решите юридическую ситуацию. У переполненного людьми автобуса отказали тормоза....
1
Рациональное число это число которое можно представить в виде p/q где p это...
1
ЗАДАНИЕ ЛЁГКОЕ, ЗАВДАННЯ ЛЕГКЕ, ІВ УКР: Розрахуйте рейтинговий бал с ЗНО 2020...
2
Анализ стихотворения Окопная песня . Автор: Фатых Карим. Даю 60+ . Анализ:...
2
Два точечных электрических заряда 48нКл и 2,5нКл находятся в вакууме на расстоянии...
2
Корабль при батискафа поднимает со дна затонувшие сокровища. Батискаф может...
2
Гармоническая волна, движущаяся в положительном направлении х. Учитывая амплитуду...
1
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.