Viết chương trình nhập vào một dãy số đếm xem trong dãy có bao nhiêu phần tử dương 18/07/2021 Bởi Raelynn Viết chương trình nhập vào một dãy số đếm xem trong dãy có bao nhiêu phần tử dương
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. Bình luận
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^_^) Bình luận
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.
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^_^)