Sử dụng ngôn ngữ lập trình Pascal để viết chương trình nhập vào một dãy gồm n số thực, sau đó thực hiện các yêu cầu sau: a. Tính tổng các số vừa nhập vào b. Tính tổng các số dương của dãy số trên c. Tính tổng các số âm của dãy số trên

program oken;

uses crt;

var a: array [1..100]of integer;

       n,tong,i,am,duong: integer;

begin 

clrscr;

write('nhap so phan tu: '); readln(n);

for i:=1 to n do

       begin

         write('a[',i,']: '); readln(a[i]);    

        if a[i]>=0 then duong:=duong+a[i] 

                      else am:=am+a[i];

         tong:=tong +a[i];

       end;

writeln('tong cac phan tu cua mang: 'tong);

writeln('tong cac phan tu am cua mang: 'am);

writeln('tong cac phan tu cua duong mang: 'duong);

readln;

end.

program ct;

uses crt;

var A:array [1..100]of integer;

      i,n:integer;

      Sd,Sa:longint;

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln(Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     S:=0; Sd:=0; Sa:=0;

   for i:=1 to n do

     begin

        S:=S+A[i];

        if A[i]>0 then Sd:=Sd+A[i];

        if A[i]<0 then Sa:=Sa+A[i];

     end;

   writeln('Tong la: 'S);

   writeln('Tong cac so duong la: 'Sd);

   writeln('Tong cac so am la: 'Sa);

readln;

end.

Học tốt!