Задан массив RAF из N чисел (N=11) случайным образом в диапазоне [-5..15]. Найти...

Question

Задан массив RAF из N чисел (N=11) случайным образом в диапазоне [-5..15]. Найти произведение отрицательных элементов массива.

Answer 1

Program n1;
const n=11;
var RAF: array[1..n] of integer;
i: integer;
p: real;
begin
write('массив: ');
for i:=1 to n do begin
RAF[i]:=random(21)-5;
write(RAF[i],' ');
end;
p:=1;
writeln;
for i:=1 to n do if RAF[i]<0 then p:=p*RAF[i];<br>write('произведение отрицательных: ',p);
end.

Comments

если не отображается, обновите страницу

---

Спасиб, я вас люблю~

Answer 2

Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Comments

Вииииии *-*

---

И вас спасибо~

---

Вас*

---

Да блин(

---

Ну понятно в общем