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 ai biết làm pascal chỉ mình với ạ

Program tinh_tong;

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 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.