2. Nhập mảng A. Tìm vị trí những phẩn tử x thỏa mãn: x phải lớn hơn phần tử phía trước và nhỏ hơn phần tử phía sau:
VD: 50 10 78 100 70 20
KQ: 2, 6
Nhập xuất bằng file
Quảng cáo
1 câu trả lời 232
2 năm trước
uses crt;
var a:array[1..10000] of integer;
i,n:integer;
begin
clrscr;
read(n);
for i:=1 to n do read(a[i]);
readln;
for i:=1 to n do if (i>1) and (a[i]>a[i-1]) and (a[i]<a[i+1]) then write(a[i],' ');
readln
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
22409
Gửi báo cáo thành công!