fork download
copy 
  1. program gr10(input,output);
  2. var i,n,p,t,j : integer;
  3.     a : array [1..100000] of integer;
  4.  
  5. begin
  6. p := 1;
  7. readln(n);
  8.  for i := 1 to n do read(a[i]);
  9.  readln;
  10.  for j := 1 to n do
  11.   begin
  12.    for i := 2 to n do
  13.     if (a[i - 1]>0) and (a[i]<0) then 
  14.       begin
  15.        t := a[i - 1];
  16.        a[i - 1] := a[i];
  17.        a[i] := t;
  18.        p := p + 1;
  19.       end;end;
  20.  
  21.    writeln(p,' ');
  22.    writeln(a[1],' ');
  23.    writeln(a[n])
  24. end.
Success #stdin #stdout 0.01s 448KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1 
0 
0
https://ideone.com/gbqrz
language:
Pascal (fpc 3.0.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!