Program bai1;
uses crt;
var a: array[1..1000] of integer;
Z,i,j,n: integer;
begin
clrscr;
write('nhap n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,']='); readln(a[i]);
end;
for i:= 1 to n-1 do
for j:= i+1 to n do
if a[i] < a[j] then
begin
Z:=a[i];
a[i]:=a[j];
a[j]:=Z;
end;
writeln('Day Da Sap Xep La :' );
for i:= 1 to n do write(a[i] :4);
readln;
end.
Viết chương trình nhập vào 1 dãy số từ a1, a2, …, an. In dãy số vừa nhập ra màn hình theo nguyên tắc 1 dòng gồm 10 phần tử, dòng cuối có thể có ít hơn 10 phần tử.
Viết chương trình nhập vào 1 dãy số từ a1, a2, …, an. Thông báo ra màn hình số nhỏ nhất trong dãy số
Viết chương trình nhập vào 1 dãy số từ a1, a2, …, an. Đếm và thông báo ra màn hình số phần từ chia hết cho 2 trong dãy số
Cho dãy số nguyên a1,a2,...an gồm n phần tử (n<=300) a, Khai báo và đoạn chương trình để nhập số lượng phần tửN các giá trị cho dãy a1,a2,..an?
b,Đếm các phần tử là bội của 3 trong dãy và đưa ra màn hình?
kiểm tra xem dãy trên có phải là cấp số cộng không?
Em hãy viết chương trình hoàn chỉnh vào mảng 1 chiều gồm 6 phần tử . Đếm và tính tổng các phần tử dương của mảng vừa nhập, biết rằng các phần tử trong mảng là các số nguyên
Viết chương trình nhập vào từ bàn phím mảng 1 chiều, gồm n ptử chứa các số nguyên, tìm và đưa ra ptử nhỏ nhất của máy? Giúp mình với!
Cho mảng A gồm có N phần tử các số nguyên không âm'N được nhập từ bàn phím'. Em hãy viết đoạn chương trình để thực hiện yêu cầu sau:
1.Nhập gtrị cho mảng A
2.Xuất gtrị mảng A ra màn hình
3.Tính tổng gtrị của mảng A
4.Tính tích gtrị của mảng A
5.Tính tổng gtrị các phần tử ở vị trí chẳn
6.Tính tích gtrị các phần tử ở vị trí lẻ
7.Sắp xếp mảng A thành mảng không giảm
8.In ra màn hình các phần tử có gtrị lớn hơn 10
9.Hoàn chỉnh các đoạn chương trình trên thành 1 chương trình pascal hoàn chỉnh.
Viết chương trình tạo mảng 1 chiều gồm n ptử chứa các số nguyên ngẫu nhiên <100. Đưa ra màn hình tổng các chữ số bội của 3? Giúp mình với!
