Регистрация
nik6pw
14.08.2021 22:52
Информатика
Есть ответ 👍

Составить программу для вычисления произведения отрицательных элементов массива а=(а1,а2,,…,аn). например: а=(-2,6,8,-45,0,23,5,43,-8)

300
500
Посмотреть ответы 3

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

rafon3d
rafon3d
4,4(40 оценок)
//pascal abc.net 3.1 сборка 1219 const   n=10; var   ar: array[1..n] of integer;   i,p: int64; begin   randomize;   p: =1;   writeln('array: ');   for i: =1 to n do   begin     ar[i]: =random(-10,10);     write(ar[i]: 4);     if ar[i]< 0 then p: =p*ar[i];   end;   writeln;   write('res: ',p); end. пример работы программы: array:   -4   -9   -6   3   6   2   -3   0   -9   -3 res: 17496
dimidom56
dimidom56
4,5(65 оценок)
// pascalabc.net 3.1, сборка 1256 от 21.06.2016 begin   var a: =readarrinteger(readinteger('n='));   writeln('произведение отрицательных: ',       a.where(x-> x< 0).aggregate(biginteger(,p)-> x*p)) end. тестовое решение n= 9 -2 6 8 -45 0 23 5 43 -8 произведение отрицательных: -720
gonelep0bt6w
gonelep0bt6w
4,5(66 оценок)

приветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприпрве приветприветприве приветприветприве приветприветприве приветприветприве привет

Объяснение:

приветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве приветприветприве привет

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