Написать программу суммирования элементов массива, состоящего из 20 произвольных чисел до первого отрицательного числа. плз .
211
238
Ответы на вопрос:
Const n=20; var a: array [1..n] of integer; s,i: integer; begin randomize; for i: = 1 to n do begin a[i]: =random(21)-10; write(a[i],' ') end; writeln; s: =0; i: =1; while (i< =n)and(a[i]> 0) do begin s: =s+a[i]; i: =i+1; end; writeln('сумма элементов массива до первого отрицательного числа = ',s); end. пример: 7 4 -5 6 -3 0 4 4 4 3 0 0 5 6 9 6 3 -9 -3 6 сумма элементов массива до первого отрицательного числа = 11
Program symm; uses crt; const n=20; var masiv: array [1..20] of integer; i: integer; summa,x: integer; begin for i: = 1 to n do begin masiv[i]: =random(25)-10; writeln(masiv[i]) end; for i: = 1 to n do if (masiv[i]> 0) then begin x: =masiv[i]; summa: =summa+x; end else begin writeln(); writeln('сумма элементов массива до первого отрицательного числа=',summa); halt end; end.
Кажется, ты ошибся. 4 слагаемое должно быть 8/(9*81) s: =0; for i : = 1 to 5 do begin a : = 2*i / (2*i+1) / (exp (i*ln (; // exp (i*ln (3)) = 3^i, но в паскале нет степеней. if (i mod 2 = 0) then a : = -a; s: =s+a; end; write (s); end. а вот форматов вывода в паскале я не знаю. с этим сам разбирайся.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Gulnarhidayetova06.07.2020 10:20
-
Triana25.11.2022 17:40
-
Trusters200717.08.2020 23:00
-
00Alcatraz0006.01.2022 09:23
-
tda51224.10.2022 04:20
-
Bairachock22.03.2022 23:33
-
Nadia282918.09.2020 01:23
-
МашаКотик200419.03.2021 23:15
-
HeliaK13.04.2020 09:02
-
weldys9901.05.2020 09:04
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.