Viết CT tạo mảng A có N(N<=100) phần tử là số nguyên. In ra màn hình mảng vừa tạo? Tính và đưa ra màn hình giá trị trung bình của các số nguyên âm lẻ ( số nguyên dương, chẵn) có trong mảng A
Viết CT tạo mảng A có N(N<=100) phần tử là số nguyên. In ra màn hình mảng vừa tạo? Tính và đưa ra màn hình giá trị trung bình của các số nguyên âm lẻ ( số nguyên dương, chẵn) có trong mảng A
uses crt;
var n,i,res,result,count,cou:longint; a:array[1..100]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if (a[i]<0) and (a[i] mod 2=-1) then begin inc(res,a[i]); inc(count) end;
if (a[i]>0) and (a[i] mod 2=0) then begin inc(result,a[i]); inc(cou) end;
end;
for i:=1 to n do write(a[i],’ ‘); writeln;
if (count>0) then
writeln(res/count:0:2) else
writeln(‘Khong co so nguyen am le’);
if (cou>0) then
writeln(result/cou:0:2) else
writeln(‘Khong co so nguyen duong chan’);
readln;
end.
uses crt;
var i,n,dl,tl,dc,tc:longint; a:array[1..100]of longint;
begin
clrscr;
write(‘Nhap n: (n<=100) ‘);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]= ‘);readln(a[i]);
if (a[i]<0)and(a[i] mod 2=-1) then begin inc(tl,a[i]); inc(dl); end;
if (a[i]>0)and(a[i] mod 2=0) then begin inc(tc,a[i]); inc(dc); end;
end;
write(‘Mang vua tao: ‘);
for i:=1 to n do write(a[i],’ ‘); writeln;
if dl>0 then
writeln(‘Trung binh cac so nguyen am le: ‘,tl/dl:0:2)
else
writeln(‘Mang khong chua so am le’);
if dc>0 then
writeln(‘Trung binh cac so nguyen duong chan: ‘,tc/dc:0:2)
else
writeln(‘Mang khong chua so duong chan’);
readln
end.