Составить программу в паскаль. дана последовательность из 10 чисел (2,3,-15,4.4,0,-3.2,3,25,-5,0). найти произведение положительных элементов и количество отрицательных элементов.

159

374

Посмотреть ответы 2

Ответы на вопрос:

CANDISS1

Информатика

4,7(4 оценок)

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin var a: =arr(2.0,3.0,-15.0,4.4,0.0,-3.2,3.0,25.0,-5.0,0.0); a.println; writeln('произведение положительных= ', a.where(t-> t> 0).aggregate(1.0,(x,y)-> x*y)); writeln('количество отрицательных= ',a.where(t-> t< 0).count) end. результат 2 3 -15 4.4 0 -3.2 3 25 -5 0 произведение положительных= 1980 количество отрицательных= 3

vera22102007

Информатика

4,7(81 оценок)

Можно заметить, что самый большой угол в треугольнике всегда расположен напротив самой длинной стороны, которую мы обозначим буквой с. значение такого угла можно найти по теореме косинусов: в остроугольном треугольнике угол всегда будет меньше 90 градусов, поэтому его косинус всегда будет положительным. в прямоугольном треугольнике косинус будет равен нулю, а в тупоугольном он будет отрицательным. на этом можно построить решение, предварительно определив, какая из сторон является самой длинной. и, само собой разумеется, надо сразу после ввода проверить условие существования треугольника, т.е. чтобы сумма длин двух его любых сторон была больше третьей. var a,b,c,a1,b1,c1,cosc: real; begin write('введите длины сторон треугольника: '); read(a,b,c); write('треугольник '); if (a< (b+c)) and (b< (a+c)) and (c< (a+b)) then begin if a> b then if a> c then begin c1: =a; a1: =c; b1: =b end else begin c1: =c; a1: =a; b1: =b end else if b> c then begin c1: =b; a1: =a; b1: =c end else begin c1: =c; a1: =a; b1: =b end; cosc: =(sqr(a1)+sqr(b1)-sqr(c1))/(2*a*b); if cosc< 0 then writeln('тупоугольный') else if cosc=0 then writeln('прямоугольный') else writeln('остроугольный') end else writeln('построить невозможно') end. тестовое решение: введите длины сторон треугольника: 6 4.1 4 треугольник тупоугольный

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.