Программу в паскале. Составить программу нахождения произведения положительных чисел одномерного массива В(10), элементы которого задаются датчиком случайных чисел.
Ответы
Ответ дал:
0
program foo;
var
b : array[1..10] of integer;
p : longint;
i : byte;
begin
randomize;
for i:=1 to 10 do begin
b[i] := random(51)-25;
write(b[i], ' ');
end;
writeln;
p := 1;
for i:=1 to 10 do
if b[i]>0 then p:= p*b[i];
writeln(p);
end.
var
b : array[1..10] of integer;
p : longint;
i : byte;
begin
randomize;
for i:=1 to 10 do begin
b[i] := random(51)-25;
write(b[i], ' ');
end;
writeln;
p := 1;
for i:=1 to 10 do
if b[i]>0 then p:= p*b[i];
writeln(p);
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад