SHARE
TWEET

Untitled

a guest Sep 5th, 2016 156 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.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top