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.