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
2 câu trả lời
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!
