uses crt;
var a:array[1..100]of real;
min:real;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('GTNN=',min:4:2);
writeln('Vi tri cua no la: ');
for i:=1 to n do
if min=a[i] then write(i:4);
readln;
end.
Giúp mình với :
Nhập dãy n phần tử, tìm dãy con tăng ngặt có độ dài lớn nhất.in ra màn hình độ dài, vị trí đầu và vị trí cuối
Nhập vào 1 mảng có N số nguyên ( N< 1000 )
1) Tính tổng các số chia hết cho 3 trong mảng vừa nhập
2) Tìm giá trị nhỏ nhất trong mảng , đưa ra vị trí đó . Nếu có nhiều vị trí chứa giá trị nhỏ nhất thì đưa ra vị trí lớn nhất trong các vị trí đó .
giúp em với ạ!!!!
Câu 1. Viết chương trình nhập từ bàn phím số nguyên dương N (N≤100) và dãy số nguyên A1, A2, ...AN có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình tổng số nguyên chẵn, tổng số nguyên lẻ của dãy số. Với N được nhập từ bàn phím.
Câu 2: Cho dãy A gồm N số nguyên. Viết chương trình in ra màn hình các số nguyên âm có trong dãy? với n được nhập từ bàn phím.
Câu 3. Viết chương trình tính tổng các phần tử chia hết cho 3 trong mảng A gồm n phần tử từ A1, A2 .... An? với n được nhập từ bàn phím.
Câu 4. Viết chương trình nhập từ bàn phím số nguyên dương N (N≤100) và dãy số nguyên A1, A2, ...AN có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình số nhỏ nhất của dãy số và vị trí số nhỏ nhất vừa tìm được. Với N được nhập từ bàn phím.
Câu 5. Viết chương trình nhập từ bàn phím số nguyên dương N (N≤100) và dãy số nguyên A1, A2, ...AN có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình dãy số nguyên được sắp xếp theo thứ tự giảm dần. Với N được nhập từ bàn phím
cho mảng A gồm N số nguyên dương (A1..An)
a) Xuất ra các phân tử của mảng vừa nhập
b) Tính tổng của các phân tử mảng ở vị trí đầu (nửa dãy đầu)
Cho dãy A gồm n số nguyên dương và 1 số t nguyên dương bất kỳ đc nhập từ bàn phím. lập chương trình tìm t trong dãy A. Nếu tìm thấy thì đưa ra vị trí, nếu ko tìm thấy thì thông báo ko có t trong dãy A.
Giúp e với ạ
-c1 Nhập 3 họ tên r đưa ra họ tên dài nhất
c2: nhập dãy số A có N phần tử( N>=150), số K nguyên, tính số ước của K thuộc A
-mọi người giúp e với ạ hôm sau e kt rùi -
em cảm ơn ạ
viết ctrinh nhập vào mã 1 chiều k quá 100 số thực và thực hiện các công việc sau:
- tính tổng tất cả các phần tử mã vừa nhập
- tính tb cộng của tất cả các phần tử vừa nhập
- nhập vào 1 giá trị k bất kì và kiểm tra xem có tồn tại giá trị k trong mảng hay không? nếu có thì giá trị k nằm ở những vị trí nào trong mảng? kiểm tra xem mảng vừa nhập có bao nhiêu giá trị âm, bao nhiêu giá trị dương
- sắp xếp lại mã vừa nhập theo thứ tự tăng dần
Viết chương trình nhập vào Mảng C gồm n phần tử nguyên đưa ra màn hình các phần tử bội số của k (k nhập từ bàn phím )
Giúp em với ạ! Em cảm ơn nhiều ạ. Mai em kiểm tra rồi ạ.
Nhập vào mảng A có 1 phần tử nguyên . Hãy thực hiện :
a . Đếm các phần tử dương có trong mảng .
b . Tính tổng các phần tử chẵn có trong mảng .
c . Xuất các số lẻ và vị trí các số lẻ có trong mảng ra màn hình .
d . Tìm phần tử lớn nhất có trong mảng .
e . Sắp dãy A thành 1 dãy tăng
f . Nhập khóa K .Tìm K có xuất hiện trong dãy không , nếu có cho biết vị trí Kxuất hiện .
viết chuong trinh thực hiện các công việc:
-khai báo mảng mot chieu co 20 phần tử.
-tạo các giá trị ngẫu nhiên từ 0-99 cho các phần tử trong mảng.
-nhập một số k bất kỳ từ bàn phím.
-xuất giá trị của các phần tủ trong mảng.
-chương trình xất ra màn hình vị trí của phần tử có giá trị bằng k nếu có.
