Tin học Viết chương trình nhập vào mảng n phần tử.tính TB các phần tử lẻ,chẵn,dương,âm trong mảng, cần viết riêng lẻ ra lẻ,chân ra chẵn,dương ra dương,âm ra â 16/07/2021 By Reagan Viết chương trình nhập vào mảng n phần tử.tính TB các phần tử lẻ,chẵn,dương,âm trong mảng, cần viết riêng lẻ ra lẻ,chân ra chẵn,dương ra dương,âm ra âm không viết gộp ạ.mong các bro giúp ạ mơn mn
uses crt; var a:array[1..1000] of integer; dc,dl,dd,da,i:byte; sc,sl,sd,sa:integer; begin write(‘nhap n: ‘);readln(n); for i:=1 to n do begin if a[i] mod 2=0 then begin dl:=dl+1; sl:=sl+a[i]; end else begin sc:=sc+a[i]; dc:=dc+1; end; if a[i]>0 then begin dd:=dd+1; sd:=sd+a[i]; end else begin da:=da+1; sa:=sa+a[i]; end; end; writeln(‘tb cac so duong la: ‘,sd/dd:1:2); writeln(‘tb cac so am la: ‘,sa/da:1:2); writeln(‘tb cac so chan la: ‘,sc/dc:1:2); writeln(‘tb cac so le la: ‘,sl/dl:1:2); readln; end. Trả lời
program mang_tong_hop; uses crt; var A:array [1..500] of integer; n,i,TB,d,TB1,d1,TB2,d2,TB3,d3: integer; Begin clrscr; write(‘Nhap so phan tu: ‘); readln(n); for i:=1 to n do begin write(‘A[‘,i,’]=’); readln(A[i]); end; for i:=1 to n do if A[i] mod2<>0 then begin TB:=TB+A[i]; d:=d+1; end; writeln(‘TB cac phan tu le = ‘,TB/d:2:1); for i:=1 to n do if A[i] mod2=0 then begin TB1:=TB1+A[i]; d1:=d1+1; end; writeln(‘TB cac phan tu chan = ‘,TB1/d1:2:1); for i:=1 to n do if A[i]>0 then begin TB2:=TB2+A[i]; d2:=d2+1; end; writeln(‘TB cac phan tu duong = ‘,TB2/d2:2:1); for i:=1 to n do if A[i]<0 then begin TB3:=TB3+A[i]; d3:=d3+1; end; write(‘TB cac phan tu am = ‘,TB3/d3:2:1); readln End. Trả lời