Question

Mọi người giúp e với, mai e thi rồi mà e k biết làm mấy bài này. Cảm ơn mọi người!

1. Viết ct nhập vào 1 dãy số chỉ gồm các số 0,1,2. Hãy sắp xếp các số 0 lên đầu dãy, tiếp theo là các số 1, cuối cùng là các số 2.

2. Đếm số lần xuất hiện của giá trị X trong mảng A. Đếm số lần xuất hiện của các phần tử trong mảng.

3. Viết ct nhập 1 mảng A và 1 số nguyên x. Tìm kiếm vị trí xuất hiện của x trên mảng A. Thay thế những giá trị A[i] là x=y.

4. Khai báo mảng có 30 phần tử và in ra màn hình 5 phần tử có giá trị lớn nhất.

5. Viết ct tạo ngẫu nhiên 10 số có giá trị không vượt quá 10. Tính tổng giá trị các phần tử có giá trị chẵn và có vị trí lẻ trong dãy.

Answer 1

2:

uses crt;
var a:array[1..100]of integer;
i,j,n,dem:byte;
tam,x,d: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 write(a[i]:4);
{-----------------xu-ly-dem-so-x----------------------}
writeln;
d:=0;
write('x='); readln(x);
for i:=1 to n do
if a[i]=x then d:=d+1;
writeln('so lan xuat hien cua ',x,' trong day la: ',d);
{---------------------------------------------------}
writeln;
i:=1;
while i<=n do
begin
write(a[i],' xuat hien ');
dem:=1;
while a[i]=a[i+1]do
begin
inc(dem);
inc(i);
end;
inc(i);
writeln(dem,' lan');
end;
readln;
end.

3:

uses crt;
var a,b:array[1..100]of integer;
i,n,x,dem,y: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 write(a[i]:4);
{-----------------xu-ly-dem-so-x----------------------}
writeln;
write('x='); readln(x);
write('nhap so can thay the: '); readln(y);
dem:=0;
for i:=1 to n do
if a[i]=x then
begin
inc(dem);
b[dem]:=i;
a[i]:=y;
end;
writeln('cac vi tri cua ',x,' trong day A la: ');
for i:=1 to dem do
write(b[i]:4);
writeln;
writeln('mang sau khi chen la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.

Answer 2

4:

uses crt;
var a,b:array[1..30]of integer;
i,n,tam,j:integer;
begin
clrscr;
write('nhap so phan tu:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------xu-ly----------------------}
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;
writeln('5 phan tu co gia tri cao nhat trong day la: ');
for i:=1 to 5 do
write(a[i]:4);
readln;
end.

5:

uses crt;
var a:array[1..10]of integer;
i,n,t,t1:integer;
begin
clrscr;
randomize;
write('nhap so phan tu:'); readln(n);
for i:=1 to n do
a[i]:=random(11);
{-----------------xu-ly----------------------}
t:=0;
t1:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t:=t+a[i];
if i mod 2=1 then t1:=t1+a[i];
end;
writeln('tong cac phan tu co gia tri chan la: ',t);
writeln('tong cac phan tu o vi tri le trong day la: ',t1);
readln;
end.