Tham khảo tài liệu 'giáo trinh lập trình pascal part 5', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Begin Clrscr write 1 Nhap n readin n for i 1 to n do begin write 1 a i readln a i end writeln 1 Mang A vua nhap la for i l to n do write A i 8 2 readin End. Chú ý Thao tác hiển thị thông thường sau các thao tác làm thay đổi giá các phần tử của mảng A như là thao tác nhập sắp xép chèn và xoá. Vỉ dụ Viết một chưong trình thực hiện các công việc sau - Đọc một dãy số bao gồm n so thực n 50 vào máy thông qua bàn phím. - Tính tổng các số âm trong dãy này. Program ViDu6_9 Var array of real i n integer tong real BEGIN Repeat Write Cho so phan tu cua day ReadLn n until 0 n and n 50 for ỉ 1 to n do begin 61 Write Hay nhap phan tu thu 1 i 1 ReadLn a i end tong 0 for i 1 to n do if a i 0 then tong tong a i Writebn Tong cua cac so am trong day la tong 7 2 ReadLn END. Vidụ6J0 Cho một dãy gồm n số nguyên dương n 250 . Viết một chương trình thực hiện các công việc sau - Đọc sổ phần tử trong dãy n và dãy sổ đã cho vào máy. - Hãy cho biết dãy đã cho có bao nhiêu giá trị khác nhau và mồi giá trị đó là giá trị của các số hạng nào trong dãy. Program ViDu6_10 Var a array of byte n integer i j k integer dem integer kn set of byte skn integer BEGIN repeat Write Cho so phan tu cua day ReadLn n until 0 n and n 250 for i l to n do begin 62 Write Hay nhap phan tu thu i ReadLn a 11 end kn 1 skn 0 for i l to n do if not a i in kn then begin kn kn a i skn skn 1 end WriteLn Co tat ca skn gia tri khac nhau dem 0 for i l to n do begin if a i in kn then begin dem dem 1 WriteLn GÌa tri khac nhau thu dem la a i va la cac so hang o cac vi tri 1 for j i to n do if a j a i then write j 5 WriteLn kn kn - a i end if end for ReadLn END. VidụóAỊ Cho một dãy số thực Xí X2 X 00. Hãy viết chương trình sáp xếp lại dãy này theo thứ tự tăng dần. Program VỈDu6_ll Sap xep tang dan Var X array of real i j integer tg real .
