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