fork download
copy 
  1. program ideone;
  2. const fin='bonus.in';
  3. fout='bonus.out';
  4. var a: array [1..1000000,1..1000000] of longint;
  5. m,n,q,i,j, x1,y1,x2,y2,k: longint;
  6. s: int64;
  7. fi,fo: text;
  8. begin
  9.         assign(fi, fin);
  10.         reset(fi);
  11.  
  12.         assign(fo, fout);
  13.         rewrite(fo);
  14. //        fillchar(a,sizeof(a),0);
  15.         readln(fi, m, n, q);
  16.         for i:=1 to m do
  17.         begin
  18.                 for j:=1 to n do
  19.                         read(fi, a[i,j]);
  20.                 readln(fi);
  21.         end;
  22.  
  23.         for k:= 1 to q do
  24.         begin
  25.                 readln(fi, x1,y1, x2,y2);
  26.                 s:=0;
  27.                 for i:=x1 to x2 do
  28.                         for j:= y1 to y2 do s:=s+a[i,j];
  29.                 writeln(fo,s);
  30.  
  31.         end;
  32.         close(fi);
  33.         close(fo);
  34. end.
  35.  
Runtime error #stdin #stdout 0s 280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Runtime error 2 at $080480F1
  $080480F1
  $08063903
https://ideone.com/cdsphK
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!