/ TỰ HỌC THÊM CÁC THỦ TỤC VÀ THỦ TỤC LÒNG GHÉPPHẦN 2

10./ tự học thêm các thủ tục và thủ tục lòng ghép

Phần 2: (5đ) Học sinh đọc kỹ đề bài. Chỉ viết một chương trình

a) Nhập vào mảng một chiều B kiểu số nguyên gồm n phần tử (n <= 70).

b) Xuất ra màn hình các phần tử B[i] khác 0 theo chiều ngược với thứ tự nhập.

c) Tính tích các phần tử B[i] chia hết cho 7. Xuất kết quả tính được ra màn hình.

d) Đếm các phần tử B[i] âm. Xuất kết quả tính được ra màn hình.

e) Tìm giá trị lớn nhất Max trong mảng B[i] và xuất Max ra màn hình.

f) Tăng giá trị mỗi phần tử B[i] của mảng B lên 3 lần. Xuất kết quả của mảng sau khi tăng lên 3 lần

g) Tính tổng bình phương các phần tử B[i] chia hết cho 5.Xuất kết quả tính được ra màn hình.

Writeln('P=' ,P:5);

For i:=1 to n do

Program BaiTap;

{d}

if (B[i] < 0) then

Var B:array[1..70] of integer;