fork download
copy 
  1. var N, i, kol:integer;
  2. begin
  3. mas: array [1..10000] of integer;
  4. read (N);
  5. kol:=0;
  6. for i:=1 to N do begin
  7. read (mas[i]);
  8. end;
  9. for i:=1 to N do begin
  10. if mas[i]>=0 then begin
  11. kol:= kol+1;
  12. end;
  13. end;
  14. write (kol);
  15. end.
Compilation error #stdin compilation error #stdout 0s 340KB
comments (?)
stdin
copy 
var N, I, kol:integer;
begin
mas: array [1..10000] of integer;
read (N);
kol:=0;
for I:=1 to N do begin
read (mas[i]);
end;
for I:=1 to N do begin
if mas[i]>=0 then begin
kol:= kol+1;
end;
end;
write (kol);
end.
compilation info 
Free Pascal Compiler version 3.0.0+dfsg-10 [2016/12/12] for x86_64
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(3,1) Error: Identifier not found "mas"
prog.pas(3,4) Fatal: Syntax error, ";" expected but ":" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode
stdout
copy 
Standard output is empty
https://ideone.com/sengNm
4
1 2 -4 5
language:
Pascal (fpc 3.0.4)
created:
6 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!