Nhập vào một dãy n số nguyên A[1].A[2]…A[n]. hãy tính a. Tổng các phần tử của dãy, b. Số lượng các số hạng dương và tổng của các số hạng dương.
Nhập vào một dãy n số nguyên A[1].A[2]…A[n]. hãy tính a. Tổng các phần tử của dãy, b. Số lượng các số hạng dương và tổng của các số hạng dương.
uses crt;
var a:array[1..100000] of longint;
i,n,s,t,d:longint;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]);
s:=0;t:=0;d:=0;
for i:=1 to n do
begin s:=s+a[i];
if a[i]>0 then begin d:=d+1;
t:=t+a[i];
end;
end;
writeln(‘a, ‘,s);
write(‘b, ‘,d,’ ‘,t);
readln
end.
program bai_giai;
uses crt;
var A:array[1..1000] of integer;
n,i,t,d,td:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
t:=0; d:=0; td:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
t:=t+A[i];
if A[i]>0 then
begin
d:=d+1;
td:=td+A[i];
end;
end;
writeln(‘a. Tong cac phan tu cua day la: ‘,t);
writeln(‘b. Co ‘,d,’ so duong va tong cua chung la: ‘,td);
readln;
end.