fork download
copy 
  1. program massimo;
  2. var N,i:longint;
  3.     V :array[0..1000]  of longint;
  4.  
  5. function trova_massimo(N:longint; V: array of longint) : longint;
  6. var massimo:longint;
  7. begin
  8.   massimo:=0;
  9.   for i:=0 to N-1 do if V[i]>massimo then massimo:=V[i];
  10.   trova_massimo:=massimo;
  11. end;  
  12. begin
  13. 	readln(N);
  14. 	for i:=0 to N-1 do read(V[i]);
  15. 	readln;
  16. 	writeln(trova_massimo(N,V));
  17. end.
Success #stdin #stdout 0s 5292KB
comments (?)
stdin
copy 
5
-3 2 -5 1 -1
stdout
copy 
2
https://ideone.com/zfNkVX
language:
Pascal (fpc 3.0.4)
created:
11 days 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!