Bài 1: Nhập vào 1 dãy n phần tử. Sắp xếp dãy đó theo thứ tự tăng dần và in ra dãy sau khi sắp.
Bài 2: Sử dụng cấu trúc mảng trong Pascal in ra bảng cửu chương.
Bài 3: Dùng cấu trúc mảng hãy nhập vào danh sách lớp bạn và in ra danh sách đó theo thứ tự tên đã nhập.
Bài 4: Nhập vào 1 dãy và in ra tổng các số chẵn, lẻ.
uses crt;
Trả lờiXóatype mang = array[1..50] of integer;
var a:mang;
N,i,j,Tam:integer;
begin
write(' nhap N =');
readln(N);
for i:=1 to N do begin
write('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
tam:=A[i];
A[i]:=A[j];
a[j]:=Tam;
end;
writeln('ket qua sau khi sap xep:');
for i:=1 to N do write(A[i]:5);
readln;
end.
ông chạy thử chưa z
Trả lờiXóa