Viết chương trình nhập vào từ bàn phím dãy n số nguyên (n<=100). Tính và đưa ra màn hình các thông tin sau a.số lượng số nguyên trong dãy b.tổng các số nguyên dương trong dãy
Viết chương trình nhập vào từ bàn phím dãy n số nguyên (n<=100). Tính và đưa ra màn hình các thông tin sau a.số lượng số nguyên trong dãy b.tổng các số nguyên dương trong dãy
uses crt;
var n,i:byte;
a:array[1..100] of integer;
tong:integer;
BEGIN
clrscr;
write(‘Nhap N:’); readln(n);
tong:=0;
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]:’);
readln(a[i]);
if a[i]>0 then tong:=tong+a[i];
end;
writeln(‘So luong cac so nguyen trong day:’,n);
write(‘Tong cac so nguyen duong trong day:’,tong);
readln
END.
Chúc bạn học tốt!
đây you