code. compile. run. debug. share.
{
Online Pascal Compiler.
Code, Compile, Run and Debug Pascal program online.
Write your code in this editor and press "Run" button to execute it.
}
program Hello;
uses crt;
var i : integer;
b : array [1..15] of integer;
s : integer;
begin
randomize;
s := 0;
for i := 1 to 15 do
begin
b[i] := random(41)-20;
writeln('B[',i,'] = ',b[i]);
if (b[i] < 0) then s:=s+b[i];
end;
writeln('S=',s);
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 |
|---|