Cho dãy A có tối đa 100 số nguyên.
a) đếm các số lẽ trong dãy
b)tính tổng các số lẻ
c)tính trung bình cộng các số lẽ
Cho dãy A có tối đa 100 số nguyên.
a) đếm các số lẽ trong dãy
b)tính tổng các số lẻ
c)tính trung bình cộng các số lẽ
program Min;
uses crt;
var A:array[1..100] of integer;
n,i,dem,tong:integer;
tbc:real;
begin
clrscr;
tong:=0;
repeat
begin
write(‘Nhap n: ‘);
readln(n);
end;
until n<=100;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘);
readln(A[i]);
end;
for i:=1 to n do
if i mod 2 <> 0 then
begin
inc(dem);
tong:=tong+A[i];
end;
tbc:=tong/dem;
writeln(‘So cac so le la: ‘,dem);
writeln(‘Tong cac so le la: ‘,tong);
writeln(‘Trung binh cong cac so le la: ‘,tbc:4:2);
readln
end.
program bt;
uses crt;
var S,i,d,n:integer;
A:array[1..100] of integer;
TBC:real;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
read(A[i]);
if A[i] mod 2 <>0 then
begin
inc(d);
S:=S+A[i];
end;
end; TBC:=S/d;
writeln(‘Co ‘,d,’ so le’);
writeln(‘Tong cac so le la: ‘,S);
writeln(‘Trung binh cong cac so le la: ‘,TBC:0:2);
readln;
readln;
end.