Tin học Viết chương trình nhập vào máy 1 mảng số nguyên bất kỳ, thống kê và in ra số phần tử dương trong mảng 17/07/2021 By Alaia Viết chương trình nhập vào máy 1 mảng số nguyên bất kỳ, thống kê và in ra số phần tử dương trong mảng
Program phan_tu_duong; Uses crt; Var I,n:integer Begin Clrscr; Write(‘hay nhap do dai cua day so,N=’); Readln(n); Writeln(‘nhap cac phan tu cua day so:’); For i:=1 to n do Begin Write(‘a[i]=’) End; For i: 2 to n do Writeln(phan tu duong la=’,); 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 luong so duong la: ‘,d); readln; end. Trả lời