a)
Type mang=array[1..100]of integer;
procedure nhap(var a:mang);
var n,i:integer;
begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
end;
b) procedure xuat(var a:mang);
var i,n:integer;
begin
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
end;
Cho màng A gồm N phần tử thuộc kiểu nguyên dương (N<500)? Viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5, phải viết và sử dụng các chương trình con sau trong chương trình:
a)
Thủ tục nhập giá trị cho màng A từ bản phim.
b) Hàm kiểm tra số chia hết cho 3 hoặc 5.
Viết chương trình táo ra một tệp chứa một mảng số nguyên không quá 100 phần tử . Tiến hành mở tệp ra để đọc dữ liệu và tính tổng các phần tử của mảng tất cả đều sử dụng thủ tục để viết chương trình
viết CT con nhập vào 1 mảng số nguyên n phần tử (n<=100). hãy xuất mảng vừa nhập
Bài tập chương trình con: (procedure và function) Bài 6: Viết thủ tục để in các số từ 1 đến n Bài 7: Viết thủ tục để mn các số chẵn chia hết cho 3 phạm vi từ 1 Đến n
sử dụng hàm và thủ tục viết chương trình:
nhập mảng, tính tổng của số dương , sắp xếp mảng tăng.
viết CT nhập vào 1 mảng số nguyên n phần tử (n<=100). hãy xuất mảng vừa nhập.
Viết chương trình sử dụng thủ tục kiểm tra 1 số nguyên dương nhập vào từ bàn phím có phải là số nguyên tố hay không
Viết chương trình tìm giá trị nhỏ nhất trong dãy A gồm N số nguyên (N không quá 100), nhập từ bàn phím (yêu cầu: sử dụng hàm tìm số nhỏ nhất trong 2 số x và y) Dùng pascal ạ mn giúp mình với!!!
cho dãy A gồm N số nguyên dương A1,A2,A3...,An(N<=500),với N nhập từ bàn phím. Viết chương trình tính tích các số chẵn trong dãy. Đưa kết quả ra màn hình.
Yêu cầu viết và sử dụng các chương trình con sau:
- thủ tục nhập dãy số
- hàm tính tích số chẵn
