language: Pascal (fpc) (fpc 2.2.0)
date: 104 days 15 hours ago
link:
可見度: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

program gr10(input,output);
var i,n,p,t : integer;
    a : array [1..100000] of integer;
 
begin
p := 1;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 for i := 2 to n do
   if (a[i - 1]>0) and (a[i]<0) then 
     begin
       t := a[i - 1];
       a[i - 1] := a[i];
       a[i] := t;
       p := p + 1;
     end;
   writeln(p,' ');
   writeln(a[1],' ');
   writeln(a[n])
end.