uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
for i:=1 to n do
if max=a[i] then write(a[i]:4);
readln;
end.
Cho dãy A có N phần tử nguyên (N<=250) Tìm phần tử có giá trị lớn nhất, đưa kết quả ra ngoài màn hình cùng với chỉ số (vị trí)của phần tử đó
Viết chương trình nhập vào 1 dãy số nguyên A không quá 50 phần tử. Đưa ra màn hình số chẵn lớn nhất của dãy A (Cứu mình với ạ)
Viết chương trình tìm phần tử có giá trị lẻ của mảng và đưa ra màn hình chỉ số và giá trị của phần tử tìm được. Nếu có nhiều phần tử cùng giá trị lẻ thì đưa ra phần tử có chỉ số lớn nhất. Nhờ mn giúp đỡ
hãy lập chương trình nhập từ bàn phím một dãy số nguyên n phần tử (với n<=100) sau đó tính và hiển thị ra màn hình phần tử có giá trị nhỏ nhất, lớn nhất trong dãy
Nhập từ bàn phím mảng a có n số nguyên. In ra màn hình mảng a vừa nhập, in phần tử lớn nhất, in phần tử nhỏ nhất của mảng, in vị trí phần tử lớn nhất, in vị trí phần tử nhỏ nhất của mảng.
Làm giúp bài tin này với ạ. Nghĩ hoài vẫn chưa ra đáp án câu cuối.
1)Nhập một dãy n phần tử ra màn hình.
2)Sắp xếp dãy theo thứ tự tăng dần và in ra kết quả.
3)Nhập số nguyên dương x bất kì.Tìm số chắn lớn nhất mà không vượt quá x.
câu 1 : nhập vào 1 dãy số nguyên có M phần tử . đưa ra màn hình các phân tử chia hết cho 3
câu 2 : nhập vào 1 dãy số nguyên có M phần tử . đưa ra màn hình các phân tử có chỉ số lẻ và phân tử chẵn
Cho mảng 1 chiều A có tối đa 100 phần tử các phần tử có kiểu số nguyên.
a. Nhập số nguyên N và mảng A gồm N số nguyên
b. Xuất mảng.
c. tính và đưa ra màn hình số phần tử bé hơn 2 số liền kề.
d. tính và đưa ra màn hình số phần tử lớn hơn 2 số liền kề.
Viết CT tìm phần tử có giá trị lẻ của mảng và đưa ra màng hình chỉ số và giá trị của phần tử tìm được . Nếu có nhiều phần tử có cùng giá trị tỉ lệ thì đưa ra phần tử có chỉ số lớn nhất.
