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
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.
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.