Giải hộ mik vs ạ.
Viết chương trình nhập vào dãy số nguyên.
a. Hiển thị các số đó ra màn hình.
b. Tính tổng các phần tử chẳn.
c. Đếm xem có bao nhiêu phần tử chia hết cho 3.
d. Tính giá trị trung bình của các phần tử.
e. In ra dãy số đã sắp xếp các phần tử tăng dần ( giảm dần ).
f. In ra danh sách các số chẳn và tính tổng của chúng.
uses crt;
var A:array[1..10000] of integer;
i,j,sch,dem,tam,n:integer; tb:real;
begin
clrscr;
sch:=0; dem:=0; tb:=0;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(A[i]);
if A[i] mod 2 = 0 then sch:=sch+A[i];
if A[i] mod 3 = 0 then inc(dem);
tb:=tb+A[i];
end;
write(‘Hien thi cac so ra man hinh: ‘);
for i:=1 to n do write(A[i]:4);
tb:=tb/n;
writeln;
writeln(‘Co ‘,dem,’ phan tu chia het cho 3′);
writeln;
writeln(‘Gia tri trung binh cua cac phan tu la: ‘,tb:4:2);
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
tam:=A[i];
A[i]:=A[j];
A[j]:=tam;
end;
write(‘Day tang dan: ‘);
writeln;
for i:=1 to n do write(A[i]:4);
writeln;
write(‘Danh sach cac so chan la: ‘);
for i:=1 to n do
if A[i] mod 2 = 0 then write(A[i]:4);
writeln;
write(‘Tong cac so chan la: ‘,sch);
readln
end.
uses crt;
var a:array[1..1000000] of longint;
n,i,j,t,s,d,s1:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(a[i]);
inc(s1,a[i]);
if a[i] mod 2=0 then inc(s,a[i]);
if a[i] mod 3=0 then inc(d);
end;
write(‘a) Cac so vua nhap: ‘);
for i:=1 to n do write(a[i],’ ‘); writeln;
writeln(‘b) Tong cac phan tu chan: ‘,s);
writeln(‘c) Co ‘,d,’ phan tu chia het cho 3′);
writeln(‘d) Gia tri trung binh cac phan tu: ‘,s1/n:0:2);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write(‘e) Day tang dan: ‘);
for i:=1 to n do write(a[i],’ ‘); writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write(‘ Day giam dan: ‘);
for i:=1 to n do write(a[i],’ ‘); writeln;
write(‘f) Danh sach cac so chan: ‘);
for i:=1 to n do if a[i] mod 2=0 then write(a[i],’ ‘); writeln;
writeln(‘ Tong cua chung: ‘,s);
readln;
end.