Advertisement
knyazer

Untitled

Dec 17th, 2019
129
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.34 KB | None | 0 0
  1. type
  2.   arrayType = array[1..n] of integer;
  3.  
  4. var
  5.   arr : arrayType;
  6.   i : integer;
  7.   max : integer;
  8.  
  9. begin
  10.    for i := 1 to n do readln(arr[i]);
  11.    
  12.    for i := 1 to n do
  13.    begin
  14.     if arr[i] > max then max := arr[i];
  15.    end;
  16.    
  17.    for i := 1 to n do
  18.    begin
  19.      if not (arr[i] = max) then writeln(arr[i])
  20.    end;
  21. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement