viết CT nhập vào gt của 10 phân tử trong mảng( số nguyên )
a. in ra các gt trong mảng theo thứ tự từ dưới lên trên
b. in ra màn hình gt của các phân tử thứ 5
c. cho T=7, in ra màn hình các chỉ số có giá trị phân tử =7
d. in ra màn hình gt của các phân tử tại các chỉ số chẵn trên 1 hàng và thông báo tổng của chúng
e. in ra màn hình các gt của phân tử theo thứ tự từ bé đến lớn
( viết 1 chương trình tổng quát tất cả các câu trên )
uses crt;
var a,b:array[1..10]of integer;
i,t,dem,tam,j,tong:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]:4);
writeln;
writeln('Gia tri cua phan tu thu 5 la: ',a[5]);
t:=7;
dem:=0;
for i:=1 to 10 do
if a[i]=t then
begin
dem:=dem+1;
b[dem]:=i;
end;
if dem>0 then
begin
writeln('Cac chi so co gia tri phan tu bang 7 la: ');
for i:=1 to dem do
write(b[i]:4);
end
else writeln('Khong co phan tu nao trong day co chi so bang 7');
tong:=0;
writeln('Cac phan tu tai chi so chan trong day la: ');
for i:=1 to 10 do
if i mod 2=0 then
begin
write(a[i]:4);
tong:=tong+a[i];
end;
writeln;
writeln('Tong cac phan tu co chi so chan trong day la: ',tong);
for i:=1 to 10-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('Day sap xep tu be den lon la: ');
for i:=1 to 10 do
write(a[i]:4);
readln;
end.
