найти произведение всех элементов массива целых чисел меньших 0 размер массива равен-10
Ответы на вопрос
Ответил wapmister
0
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.
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.
Новые вопросы
Английский язык,
2 года назад
Математика,
2 года назад
Математика,
10 лет назад
Геометрия,
10 лет назад
Химия,
10 лет назад