Tham khảo tài liệu 'tự học lập trình pascal tập 2 part 6', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Phan 2. HƯỞNG DAN 75 4. Program P2404 Var a array 1 .100 of integer n i byte kích Lìiùớc mảng uà chỉ sô các phần tứ s word Begin ổ Write Nhập kích thước của mảng 1 chiếu n - Read n n Writeln Nhập các phần tử của mảng S 0 giá trị dầu cùa tông For i -1 to n ứo thực hiện lần lượt từng phẩn tử Begin Write a i 2 Read n a i nhập lỉ a ij o then nếu a i âm thì cộng dồn bình S zS sqr a i phườngcủa a i uào Sị End Write n S- S 5 viết s ra màn hình Readln End. 5. Program P2405 Const a array of shortin -1 0 5 4 -8 2 1 0 5 1 Var i Byte chỉ sô các phần tử mảng a max a min Shortint chứa giá trị max và min của mảng Begin amax a 1 amin a 1 cho amax amin a 1 For ĩ 2 to 10 do lần lượt so sánh với 9 sốsau Begin If amax a i then nếu amax nhỏ hơn thỉ thay 76 Pascal dành cho hoc sinh amax a i ịamax bằng phần tử lớn hơn đô lí amin a i then nêó amin lởn Ỉỉơiíỉ a mi n a ì ịtỉìi thay đổi giá trị aminl End Writelnfamax- amax Writeln amin- amin Readln End. 6. Program P2406 Uses Crt Var a array 1 .10 1 .10 of shortint i. j byte sa sd sk byte Ịcác biến dem sô ám sò dương sờ khõngỉ Begin Clrscr Wrĩteln Nhập các phần tử của ma trận vuông cấp 10x10 For i 1 to 10 do For j 1 to 10 do Begin Writefapj A j - Readln a ij End sa -0 sd -0 sk -0 For i 1 to 10 do kiếm tra theo tưng hảngl For j 1 to 10 do Begin If a i j 0 then sa sa i If a i j 0 then sd sd 1. If aịi j 0 then sk sk 1 Phẩn 2. HƯỚNG DAN 77 End Writeln Số các số dương là sd Wnteln Số các số âm là sa WritelnfSo các số không lậ f sk Readln End. 7. Làm tương tự P2406. a. For i 1 to 10dos1 s1 a í ĨỊ b. For i-1 to 5 do For j -1 to 10 do s2 s2 sqr a 2 i fl c. For 1 1 to 10 do For j 1 to 10 do 8. Tương tự P2406. For i 1 to 10 do For j 1 to 10 do If a i j mod 2 0 then sc sc sqr a i fl Else sl sl sqr a i fl a i fl 9. Program P2409 Uses Crt Var a array A . Z mảng bộđếm ch char biến nhập kí lựì Í byte lchỉ snciia lần gõ phím Begin Clrscr For ch -A to Z do a ch 0 xóa bộ đệm Writelnf Go phím 100 lần
