Bài 11. Kiểu mảng

BÀI 11: KIỂU MẢNG (T2)
2. MỘT SỐ VÍ DỤ
CT
SĐK
CT
writeln(`day sau khi sap xep la: `);
for i:=1 to n do
write(a[i]:6);
readln;
end.
Pascal
uses crt;
var a:array [1..100] of integer;
n,i,j: byte;
tg:integer;
begin
clrscr;
write(`nhap n: `); read(n);
for i:=1 to n do
begin
write(`nhap a[`,i,`]=`);
readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
Home
Minh họa hoán đổi giá trị của hai phần tử, bằng cách dùng biến trung gian (TG).
TG := x (1)
x := y (2)
y := TG (3)
CT
uses crt;
var a:array [1..100] of integer;
n,i,dem: byte;
k:integer;
begin
clrscr;
write(`nhap n: `); read(n);
for i:=1 to n do
begin
write(`nhap a[`,i,`]=`);
readln(a[i]);
end;
for i:=1 to n do
write(a[i]:6);writeln;
dem:=0;
write(`nhap k=`); readln(k);
for i:=1 to n do
if a[i]=k then
begin
dem:=dem+1;
writeln(`chi so la: `,i:4);
end;
writeln(`so luong bang k la: `,dem);
readln;
end.
Pascal
Home
Thuật toán sơ đồ khối
Home
CT