Program n1; type z = array of integer; var a: z; i,n,x,j,buf: integer; f: text; begin randomize; assign(f,'input.txt'); reset(f); n:=0; readln(f,x); setlength(a,x); while not eof(f) do begin read(f,a[n]); n:=n+1; end; close(f); for i:=0 to n-2 do for j:=i+1 to n-1 do if a[i]>a[j] then begin buf:=a[i]; a[i]:=a[j]; a[j]:=buf; end; assign(f,'output.txt'); rewrite(f); for i:=0 to x-1 do write(f,a[i],' '); close(f); end.
var a:array[1..15]of integer; i,j:integer; begin for i:=1 to 15 do readln(a[i]); for i:=1 to 15 do begin j:=i; if (a[i]<0) and (a[i] mod 5=-2) then break; end; writeln(j); end.