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];
write('произведение отрицательных: ',p);
end.

Answer 2

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

Answer 3

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