Viết chương trình thực hiện các việc sau :
a, nhập một mảng gồm n số nguyên dương
b, in mảng vừa nhập
c, tính tổng, trung bình mảng
d, Đếm số chẵn, số âm trong mảng và tính tống các số lẻ trong mảng
e, Đếm xem có bao nhiêu số trong dãy không lớn hơn x
f, Tìm phần tử lớn và nhỏ nhất trong mảng
Viết chương trình thực hiện các việc sau : a, nhập một mảng gồm n số nguyên dương b, in mảng vừa nhập c, tính tổng, trung bình mảng d, Đếm số chẵn, số
By Reagan
uses crt;
var a:array[1..1000] of longint;
i,n,s_chan,s_am,dem:word;
min,max,t,t_le,x:longint;
begin
clrscr;
write(‘nhap n= ‘);readln(n);
writeln(‘*Nhap’);
for i:=1 to n do
begin
write(‘a[‘,i,’]= ‘);
readln(a[i]);
t:=t+a[i];
if a[i] mod 2 = 0 then inc(s_chan);
if a[i] < 0 then inc(s_am);
if a[i] mod 2 = 1 then t_le:=t_le+a[i];
end;
max:=a[1];min:=a[1];
writeln(‘*In’);
for i:=1 to n do
begin
write(‘a[‘,i,’]= ‘,a[i],’ ‘);writeln;
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(‘Tong= ‘,t);
writeln(‘Trung binh= ‘,t/n:0:2);
writeln(‘So so chan= ‘,s_chan);
writeln(‘So so am= ‘,s_am);
writeln(‘Tong cac so le= ‘,t_le);
write(‘x= ‘);readln(x);
for i:=1 to n do
if a[i] <=x then inc(dem);
writeln(‘So so khong lon hon ‘,x,’ la: ‘,dem);
writeln(‘Phan tu lon nhat: ‘,max);
writeln(‘Phan tu nho nhat: ‘,min);
readln;
end.
program bai_giai;
uses crt;
var A:array[1..10000] of integer;
n,i,t,dc,da,tl,dx,x,max,min:integer;
begin
clrscr;
write(‘Nhap so nguyen n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
t:=0; dc:=0; da:=0; tl:=0; max:=A[1]; min:=A[1];
write(‘b. Mang vua nhap la: ‘);
for i:=1 to n do
begin
write(A[i],’ ‘);
t:=t+A[i];
if A[i] mod 2=0 then dc:=dc+1 else tl:=tl+A[i];
if A[i]<0 then da:=da+1;
if A[i]>max then max:=A[i]
else if A[i]<min then min:=A[i];
end;
writeln;
writeln(‘c. Tong cac phan tu cua mang la: ‘,t);
writeln(‘ Trung binh cac phan tu cua mang la: ‘,t/n:0:3);
writeln(‘d. So luong so chan la: ‘,dc);
writeln(‘ So luong so am la: ‘,da);
writeln(‘ Tong cac so le la: ‘,tl);
writeln(‘Nhap x: ‘); readln(x);
dx:=0;
for i:=1 to n do
if A[i]<=x then dx:=dx+1;
writeln(‘e. Trong day co ‘,d,’ so khong lon hon x’);
writeln(‘f. Phan tu lon nhat la: ‘,max);
writeln(‘ Phan tu nho nhat la: ‘,min);
readln;
end.