/ 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;