найти произведение всех элементов массива целых чисел меньших 0 размер массива равен-10

Question

Информатика

Светуся

1 февраля, 18:56

найти произведение всех элементов массива целых чисел меньших 0 размер массива равен-10

+4

Ответы (1)

Знаете ответ?

Каллиник · Answer 1

Program n1;

Uses Crt;

var a:array[1 ... 10] of integer;

s, i: integer;

begin

for i:=1 to 10 do begin

a[i]:=random (11) - 5;

writeln (a[i]:4) ;

end;

s:=1;

for i:=1 to 10 do

if (a[i]<0) then s:=s*a[i];

writeln ('Proizvedenie vseh otricat chisel: ', s) ;

end.