• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Линейные темы

  • Автор темы Guest
  • Дата начала
G

Guest

Вот дали задачку в универе ...помогите добрые люди

В последовательности действительных чисел a1, a2, …an есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов P1 и произведение положительных элементов Р2. Сравнить модуль Р1 с модулем P2, указать, какое из произведений по модулю больше.


нужно решить на application console

заранее БОЛЬШОЕ СПАСИБО
 
V

Vadik(R)

думаю, в предыдущей теме видел мой ответ, так что если надо будет за деньги - то стучи в асю 34-98-34-73
 
S

Shakmaev

program Project2;

{$APPTYPE CONSOLE}

var
a : array [1..50] of integer;
i, n, p1, p2 : integer;
kon : string;
begin
randomize;
Writeln('Vvedite n');
readln(n);
p1 := 1;
p2 := 1;
for i := 1 to n do
begin
a := Round(Sin(Random(10))*-15);
if a < 0 then p1 := p1*a;
if a > 0 then p2 := p2*a;
write(a,' ');
end;
writeln('');
if abs(p1) > abs(p2) then Writeln('p1 bolshe')
else Writeln('p2 bolshe');
readln(kon);
{ TODO -oUser -cConsole Main : Insert code here }
end.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!