Ответы на вопрос:
Program gt; var a: array[1..100]of integer; n,i,p: integer; begin read(n); {n-кол-во чисел в массиве} p: =1; for i: =1 to n do begin read(a[i]); {a[i]-элементы массивва} if(a[i]< 0)then p: =p*a[i]; {p-произведение отрицательных элементов массива} end; writeln(p); end.
Популярно: Информатика
-
ilyusha46278214.03.2022 02:36
-
Tolyashasorokin06.12.2021 02:40
-
lisi291222.05.2023 23:29
-
Kit1gvore09.06.2023 17:56
-
Skaterik20.02.2022 17:45
-
PomogiSPb21.08.2021 18:28
-
AlexCameron04.10.2022 11:10
-
milanagorbovsk02.01.2021 08:00
-
726262604.07.2020 17:11
-
nosok66626.05.2023 02:06