program boi_cua_3;
uses crt;
var a:array[1..100] of integer;
n,i:byte;
min:integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('nhap phan tu thu [',i,']= ');
readln(a[i]);
end;
min:=a[1];
for i:= 1 to n do
if min > a[i] then min:=a[i];
writeln('gia tri nho nhat cua day la: ',min);
readln
end.
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!
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ử.
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?
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.
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 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 mảng 1 chiều, các số nguyên<100.Sắp xếp dãy vừa nhập thành dãy giảm dần??? Giúp mình với!
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ố
Viết chương trình hiện:
a) Nhập mảng bàn phím một mảng số thực có 20 phần tử
b) hiện mảng vừa nhập