Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива a размерностью 100
200
391
Ответы на вопрос:
Const n = 100; var i, neg_k, pos_k, pos_s, neg_p: integer; a: array[1..n] of integer; begin for i : = 1 to n do begin a[i] : = random(10 + 50) - 10; write(a[i], ' '); end; writeln(); neg_p : = 1; for i : = 1 to n do if a[i] > 0 then begin pos_k : = pos_k + 1; pos_s : = pos_s + a[i]; end else if a[i] < 0 then begin neg_k : = neg_k + 1; neg_p : = neg_p * a[i]; end; writeln('positive: ', pos_k, ' ', pos_s); writeln('negative: ', neg_k, ' ', neg_p); end.
Var m,n,i,j: integer; bool: boolean; begin readln(n,m); //читаем н и м for i: =n to m do begin // от н до м выполняем циклbool: =false; // обнуляем переменную для каждой итерации for j: =2 to i-1 do begin // проверяем, делится ли число на числа, которые находятся в промежутку от 2 до это число -1 if (i mod j=0) then bool: =true; //если делится, тогда bool: =true end; if (bool = false) then write(i,' '); //если bool = false, значит это число делится только на себя и на 1, а значит оно простое и выводим это число end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
MadMax81810.12.2021 15:51
-
krasnuykkisa07.06.2023 12:16
-
siniTamy28.08.2020 17:26
-
Zeus4113.04.2023 06:41
-
викуха30709.03.2020 02:57
-
jsjdfjnids7363909.07.2021 16:57
-
vesnakrasna129.08.2021 08:26
-
НикаиВикаСестры111017.06.2022 04:13
-
azaliyazaynulinnf22.04.2023 23:44
-
baranovdanil200130.04.2021 18:57
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.