Viết chương trình nhập vào một dãy số đếm xem trong dãy có bao nhiêu phần tử dương

Question

giangnguyen · Answer

program gi_cung_dc;

uses crt;

var A:array[1..1000] of integer;

n,i,s :integer;

begin

clrscr;

write(‘Nhap so luong phan tu cua day: ‘); readln(n);

s :=0;

for i:=1 to n do

begin

write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);

if A[i]>0 then s:=s+1;

end;

write(‘Co ‘,s,’ so duong’);

readln

end.

(CHÚC BẠN HỌC TỐT^_^)

Trả lời

ngocdiep · Answer

program so_duong;

uses crt;

var A:array[1..1000] of integer;

n,i,d:integer;

begin

clrscr;

write(‘Nhap so luong phan tu cua day: ‘); readln(n);

d:=0;

for i:=1 to n do

begin

write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);

if A[i]>0 then d:=d+1;

end;

write(‘Co ‘,d,’ so duong’);

readln;

end.