Bài 1. Dãy số thực SEQREAL.*** Nhập vào dãy n số thực. Sau đó: - tính tổng dãy, - tổng các số âm, - tổng các số dương - tổng các số ở vị trí chẵn tổng các số ở vị trí lẽ. pascal

var n,i: integer;
    sum,sum2,sum3,sum4,sum5: real;
    a: array[1..100005] of real;
begin
    readln(n);
    sum:=0; sum2:=0; sum3:=0; sum4:=0; sum5:=0;
    for i:=1 to n do begin
        read(a[i]);
        sum:=sum+a[i];
        if a[i]<0 then sum2:=sum2+a[i]
        else sum3:=sum3+a[i];
        if i mod 2 = 0 then sum4:=sum4+a[i]
        else sum5:=sum5+a[i];
    end;
    write(sum:0:2,' ',sum2:0:2,' ',sum3:0:2,' ',sum4:0:2,' ',sum5:0:2);
end.

uses crt;
var n,i:longint;
x,s1,s2,s3,s4,s5:real;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
 readln(x);
 s1:=s1+x;
 if x<0 then s2:=s2+x
 else s3:=s3+x;
 if i mod 2=0 then s4:=s4+x
 else s5:=s5+x;
end;
write(s1:0:5,' ',s2:0:5,' ',s3:0:5,' ',s4:0:5,' ',s5:0:5);
readln
end.