Câu 1(3d). Hãy khai báo mảng một chiều luu trữ 300 phần tử số nguyên có giá trị trong khoảng từ -255 đến 25s
bằng cách:
a. Trực tiếp;
b. Gián tiếp;
c. Tham chiếu đến phần tử thứ 256 và gán giá trị bằng -45.
Câu 2(4đ). Viết chương trình nhập N và N số nguyên a,, az,..aN. Tính tổng các phần tử chia hết cho 3 và 5?
Câu 3 (3đ). Cho doạn chương trình sau:
Program Bai3;
Type KM-array(1..100] of LongInt;
Var a,b:KM;
a. Với: N=6;
A=5 6 3 4 5 8
1,N, t:Integer;
Begin
Write( 'Nhap N-);Readın (N);
b. Với: N-6;
A=5 7 31 11 15
c. Sửa điều kiện lệnh If thành kiểm tra xem ali]
lẻ thì cộng 1 và lấy căn là phần nguyên của nó
lưu sang b[i]?
(VD: N=4; A= 5 12 17 9 => B-2 12 4 3)
:0=:3
For i:-1 to n do
Begin
Write('Nhap a[',I,'1- );
Readin (a[i]);
If afi] mod 2-0 then b(i]:-sqr (b[i))
Else b[i]:-a (i);
End;
Readln;
End.
Loga
Sinh Học lớp 12
