Помогите сделать до завтра, пожалуйста, очень срочно!!! Вычислить произведение положительных элементов массива состоящего из 10 элементов заполненных случайными числами от -100 да +100. В паскале.
Const n=10; var a:array[1..n] of integer; i:integer; p:real; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(201)-100; write(a[i]:4); end; writeln; p:=1; for i:=1 to n do if a[i]>0 then p:=p*a[i]; writeln('p = ',p:9:0); end.
evgeshali00
Program massiv; Var a:array [1..10] of integer; i:integer; p:real; Begin p:=1; For i:=1 to 10 do a[i]:=random (100+100+1)-100; For i:=1 to 10 do If a[i]>0 then p:=p*a[i]; Writeln ('Произведение положительных чисел массива = ',p); end.
Answers & Comments
Verified answer
Const n=10;var a:array[1..n] of integer;
i:integer; p:real;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(201)-100;
write(a[i]:4);
end;
writeln;
p:=1;
for i:=1 to n do
if a[i]>0 then p:=p*a[i];
writeln('p = ',p:9:0);
end.
Пример:
Массив A:
-34 58 -9 -15 -37 57 -9 22 69 43
p = 215795844
Var a:array [1..10] of integer;
i:integer; p:real;
Begin
p:=1;
For i:=1 to 10 do
a[i]:=random (100+100+1)-100;
For i:=1 to 10 do
If a[i]>0 then
p:=p*a[i];
Writeln ('Произведение положительных чисел массива = ',p); end.