Найти произведение всех элементов массива целых чисел меньших 0 размер массива равен-10
Найти произведение всех элементов массива целых чисел меньших 0 размер массива равен-10
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы