code. compile. run. debug. share.
program vector;
const max=100;
var n, i:integer;
a: array[1..max] of integer;
function pr(n:integer):integer;
begin
if n=1 then pr:=1
else pr:=pr(n-1)*a[n]
end;
begin repeat
writeln('N = ');
readln(n); until n<10;
for i:=1 to n do begin repeat readln(a[i]); until (a[i]>-100) and (a[i]<100);end;
writeln('Proizvedenie = ',pr(n)) ;
end.
Compiling Program...
Standard Input:
Interactive Console
Text
Program is not being debugged. Click "Debug" button to start program in debug mode.
| # | Function | File:Line |
|---|
| Variable | Value |
|---|
| Register | Value |
|---|
| Expression | Value |
|---|
| # | Description |
|---|