Tin học 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 14/07/2021 By Eliza 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. Trả lời
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. Trả lời