Question

Yêu cầu: Viết chương trình nhập vào n số nguyên. In ra số lượng các số nguyên dương trong dãy số.

Dữ liệu:

Dòng đầu tiên ghi số nguyên không âm n (0 < n <= 1000) .Dòng 2 ghi n số nguyên dương kiểu 64 bit cách nhau một dấu cách trống.

Kết quả: Đưa ra số lượng các số nguyên dương trong dãy số.

 

Answer 1

var A:

     array[1..n] of int64;

     i, n, count: integer;

begin

     write('Nhap so phan tu cua mang: ');

     readln(n);

     for i := 1 to n do

     begin

          write('Nhap phan tu thu ', i, ': ');

          readln(A[i]);

      end;

 

     count := 0;

     for i := 1 to n do

          if A[i] > 0 then

               count := count + 1;

     writeln('So luong cac so nguyen duong trong mang la: ', count); end.