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.