sử dụng biến mảng viết chương trình nhập vào N số nguyên từ bàn phím sau đó đếm xem trong mảng có bao nhiêu phần tử dương
sử dụng biến mảng viết chương trình nhập vào N số nguyên từ bàn phím sau đó đếm xem trong mảng có bao nhiêu phần tử dương
program day_con;
uses crt;
var A:array[1..100] of integer;
i,n,dau,ldau,dai: integer;
begin
write(‘Nhap so n: ‘); readln(n);
for i:=1 to n do
begin write(‘a[‘,i,’]=’); read(a[i]); end;
i:=0;
dau:=1;
dai:=0;
ldau:=1;
ldau:=i+1;
while i<=n do
begin
i:=i+1;
if M[i] < 0 then begin dai:=dai+1;
end;
writeln(‘Co ‘,dai,’phan tu am; Bat dau tu: ‘,ldau);
readln
end.
program dem_duong;
uses crt;
var A:array[1..1000] of integer;
n,i,d:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); 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(‘So phan tu duong la: ‘,d);
readln;
end.