Question

Cho một mảng gồm n số nguyên (n là số nhập từ bàn phím). Viết chương trình:

-Nhập các phần tử trong mảng trên 

-Tính tổng các số nguyên đó

-Tính trung bình cộng các số nguyên dương

Answer 1

Var a:array[1..200] of integer;

i,n,s,sd,dem:integer;

tbc:real;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

If a[i] > 0 then

Begin

sd:=sd+a[i];

dem:=dem+1;

end;

end;

tbc:=sd/dem;

Writeln('Tong cac so nguyen trong day la ',s);

Write('Trung binh cong cac so nguyen duong la ',tbc:10:2);

readln;

End.