Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
NikitaSuperkryt228
01.11.2020 12:13 •
Информатика
Массив одномерный a n элементов подсчитать произведение отрицательных элементов этого массива решите , вопрос жизни и смерти
Показать ответ
Ответ:
theaziimut
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 оценок)
Популярные вопросы: Информатика
kimyan123makc
16.12.2021 08:44
По информатике 1) исключи лишнее: а)микрофон, б)колонки, в) наушники , г) монитор 2)исключи лишнее: а)процессор, б) монитор, в)клавиатура, мышь 3)установите соответствие....
malyxd
24.03.2022 10:43
Переведите Переведите...
Redycter12
18.05.2022 03:30
Какой компьютер будет считаться мультимедийным? при наличии колонок; при наличии проектора; при наличии DVD привода; при наличии всего перечисленного...
vk20001
06.02.2020 20:17
Скласти програму рішення виразу 1 в квадрате2 +2в квадрате 2 +3 в кадрате2 +4в квадрате 2 ЭТО НУЖНО ДЕЛАТЬ В ПАСКАЛЕ...
avamasha
18.08.2022 19:12
Почему Поко и Мортиса шипперят ? ...
котя1995
20.05.2023 14:25
Не запуская код, ответьте на вопрос: что выведет на экран данная программа? https://edu.sirius.online/noo-back/content/_image/c14f783c657f399ce5ac0303ad2933d0e3c57c48...
Маис555
20.03.2021 17:15
Ребят кто знает access ...
polulera2005
17.01.2023 03:32
2. Сколько существует различных последовательностей из 4нулей и единиц?...
ВеликийЗнаток
09.02.2022 04:13
35.Що таке інтенсивність міжстанційного навантаження? Як розраховується? 36.Приведіть технічні характеристики ЦСК SI-2000, Квант-Є. 37.Вузол широкосмугового доступу ВАN на...
svensyea
20.11.2020 23:10
32.Який іб побудови міської телефонної мережі (МТМ) та телефонної мережі сільського адміністративного району (ТМ САР)? 33.Яка методика проектування використовується на МТМ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.