Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Boom111111111111
28.07.2020 01:31 •
Информатика
Массив одномерный a n элементов подсчитать произведение отрицательных элементов этого массива решите , вопрос жизни и смерти
Показать ответ
Ответ:
Tenwolf
02.10.2020 22:42
Turbo Pascal
USES CRT;
VAR A:array[1..100] of integer;
i,n,summa:integer;
BEGIN
CLRSCR;
Randomize;
{Проверяем на размер массива, чтобы не превышал 100}
Repeat
Writeln('Введите размер массива до 100');
Readln(n);
Until n<=100;
{Заполняем массив случайными числами от -50 до 100}
For i:=1 to n do
begin
A[i]:=-50+Random(100);
Write(A[i],' ');
end;
summa:=0;
{Находим отрицательные элементы массива и складываем}
For i:=1 to n do
if A[i]<0 then summa:=summa+A[i];
Writeln;
Writeln('Сумма отрицательных элементов массива = ',summa);
READLN;
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
pinok21rus
06.01.2022 20:21
с базами данных. Написать SQL запрос, Вывести на печать фамилии и инициалы, дни рождения с указанием количества лет для студентов, отмечающих день рождения в текущем...
domka123456789
27.04.2021 19:19
Текст, набранный в редакторе «Блокнот» состоит из 20 строк по 60 символов в строке. Каким будет объём файла, если символы имеют кодировку КОИ-8....
kamilakruvetka
18.06.2022 00:13
Подскажите команды для программы КуМир, чтобы сделать трапецию и круг...
ZeepFire
19.05.2020 15:10
В эт значение формулы =СРЗНАЧ(С1:c3) равно 4. Значение формулы =СРЗНАЧ(С4:05) равно 6. Чему будет равно значение формулы =СУММ(С1:c5)?...
coolkaruna32ya
17.02.2020 18:16
Решите когтрольную работу очео надо все в кумире ...
milena162
09.03.2020 21:50
Решите контрольную работу все в кумири ...
Neznat13
30.05.2021 20:53
Записать порядок команд для решения поставленной задачи Пользователь начинает работу с бесконечной электронной таблицей с выделенной автоматически самой программой...
Sofa22Bas
26.09.2021 14:53
Внекоторой стране проживает 200 человек. индивидуальные номера налогоплательщиков ( инн) сдержат только цифры 2, 4, 6 и 8. какова должна быть минимальная длина инн,...
Света0475
11.09.2021 19:42
Сравните приведенные реакция определите какому типу они относятся 1) P+O2→P2O5...
Fleksander
07.02.2022 08:38
Вопрос № 1: К какой эпохе относятся следы первого человека, найденного на территории Казахстана? Вопрос № 2: В какой части Казахстана впервые обнаружены стоянки палеолитического...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
USES CRT;
VAR A:array[1..100] of integer;
i,n,summa:integer;
BEGIN
CLRSCR;
Randomize;
{Проверяем на размер массива, чтобы не превышал 100}
Repeat
Writeln('Введите размер массива до 100');
Readln(n);
Until n<=100;
{Заполняем массив случайными числами от -50 до 100}
For i:=1 to n do
begin
A[i]:=-50+Random(100);
Write(A[i],' ');
end;
summa:=0;
{Находим отрицательные элементы массива и складываем}
For i:=1 to n do
if A[i]<0 then summa:=summa+A[i];
Writeln;
Writeln('Сумма отрицательных элементов массива = ',summa);
READLN;
END.