Nhập vào một dãy N số nguyên A1,A2,...,AN (N≤10000,|Ai|≤109). Hãy in ra màn hình số lượng phần tử dương và tổng của chúng. Dữ liệu vào: Dòng đầu tiên chứa số N Dòng thứ 2 chứa N số nguyên A1,A2,...,AN. Kết quả: In ra số lượng phần tử dương và tổng của chúng Sample Input Copy 7 7 -6 -4 19 -22 51 -82 Sample Output Copy 3 77 pythonA
2 câu trả lời
uses crt;
var a:array[1..10000]of integer;
n,i,t,dem:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until (0<n) and (n<10000);
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
until (a[i]<=109);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i]<0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Trung binh cong cac so am la: ',t/dem:4:2);
readln;
end.
CHÚC BẠN HỌC TỐT VÀ CHO MÌNH XIN HAY NHẤT !
