fork download
copy 
  1. program ideone;
  2. Var
  3. a: array[1..10000] of integer;
  4. i, k, n: integer;
  5. begin
  6. readln(n);
  7. for i:=1 to n do
  8. read(a[i]);
  9. writeln;
  10. k:=0;
  11. for i:=2 to n do
  12. if a[i] > a[i-1] then
  13. inc(k);
  14. writeln(k);
  15. end.
Runtime error #stdin #stdout #stderr 0s 9216KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
./prog: attempt to read past end of Input (error #454 at 402c53)
https://ideone.com/Mk7xgr
language:
Pascal (gpc 20070904)
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!