fork(13) download
copy 
  1. Program Min_Max_tab ;
  2. Var
  3. T : Array [1..50] of Integer;
  4. i, min, max, n : Integer;
  5. Begin
  6. Repeat
  7. Writeln(n);
  8. Readln(n);
  9. Until(n>=10) and (n<=50);
  10. For i:=1 To n Do Readln (T[i]);
  11. min:=T[1];
  12. max:=T[1];
  13. For i:=2 To n Do 
  14. Begin
  15. If T[i]<min Then min:=T[i];
  16. If T[i]>max Then max:=T[i];
  17. End;
  18. Writeln('Valeur maximale = ', max);
  19. Writeln('Valeur minimale = ', min);
  20. End.
Time limit exceeded #stdin #stdout 5s 276KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/XtLWAZ
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
secret

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!