Advertisement
Guest User

Untitled

a guest
Sep 5th, 2016
220
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var i,input,max:integer;
  2. input:array[1..10] of integer;
  3. begin
  4. for i:=1 to 10 do
  5.     begin
  6.     readln(input);
  7.     input[i]:=input;
  8.     end;
  9. max:=input[1];
  10. for i:=2 to 9 do
  11.     if max<input[i] then
  12.         max:=input[i];
  13. writeln('the max is',max);
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement