Tìm Và đưa Ra Vị Trí Và Giá Trị Của Phần Tử Lớn Nhất Trong Mảng A đã ...
Có thể bạn quan tâm
HOC24
Lớp học Học bài Hỏi bài Giải bài tập Đề thi ĐGNL Tin tức Cuộc thi vui Khen thưởng- Tìm kiếm câu trả lời Tìm kiếm câu trả lời cho câu hỏi của bạn
Lớp học
- Lớp 12
- Lớp 11
- Lớp 10
- Lớp 9
- Lớp 8
- Lớp 7
- Lớp 6
- Lớp 5
- Lớp 4
- Lớp 3
- Lớp 2
- Lớp 1
Môn học
- Toán
- Vật lý
- Hóa học
- Sinh học
- Ngữ văn
- Tiếng anh
- Lịch sử
- Địa lý
- Tin học
- Công nghệ
- Giáo dục công dân
- Tiếng anh thí điểm
- Đạo đức
- Tự nhiên và xã hội
- Khoa học
- Lịch sử và Địa lý
- Tiếng việt
- Khoa học tự nhiên
- Hoạt động trải nghiệm
- Hoạt động trải nghiệm, hướng nghiệp
- Giáo dục kinh tế và pháp luật
Chủ đề / Chương
Bài học
HOC24
Khách vãng lai Đăng nhập Đăng ký Khám phá Hỏi đáp Đề thi Tin tức Cuộc thi vui Khen thưởng - Tất cả
- Toán
- Vật lý
- Hóa học
- Sinh học
- Ngữ văn
- Tiếng anh
- Lịch sử
- Địa lý
- Tin học
- Công nghệ
- Giáo dục công dân
- Tiếng anh thí điểm
- Hoạt động trải nghiệm, hướng nghiệp
- Giáo dục kinh tế và pháp luật
Câu hỏi
Hủy Xác nhận phù hợp Chọn lớp Tất cả Lớp 12 Lớp 11 Lớp 10 Lớp 9 Lớp 8 Lớp 7 Lớp 6 Lớp 5 Lớp 4 Lớp 3 Lớp 2 Lớp 1 Môn học Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Tiếng anh thí điểm Đạo đức Tự nhiên và xã hội Khoa học Lịch sử và Địa lý Tiếng việt Khoa học tự nhiên Hoạt động trải nghiệm Hoạt động trải nghiệm, hướng nghiệp Giáo dục kinh tế và pháp luật Mới nhất Mới nhất Chưa trả lời Câu hỏi hay
- my trần
1. Viết chương trình nhập vào mảng gồm n số nguyên, - Đếm và đưa ra số phần tử chẵn của mảng - đưa ra số chẵn lớn nhất trong mảng - Tính tổng các số ở vị trí lẻ trong mảng - Tìm giá trị phần tử lẻ nhỏ nhất
Xem chi tiết Lớp 8 Tin học 1 0
Gửi Hủy 
Nguyễn Lê Phước Thịnh CTV 
30 tháng 8 2021 lúc 19:15 uses crt;
var a:array[1..100]of integer;
i,n,dem,max,t,min,dem1:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
max:=-32000;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
dem:=dem+1;
if max<a[i] then max:=a[i];
end;
if dem=0 then writeln('Trong day khong co so chan')
else begin
writeln('So so chan la: ',dem);
writeln('So chan lon nhat la: ',max);
end;
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+a[i];
writeln('Tong cac so o vi tri le la: ',t);
min:=maxint;
dem1:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
inc(dem1);
if min>a[i] then min:=a[i];
end;
if dem1=0 then writeln('Trong day khong co so le')
else writeln('So le nho nhat la: ',min);
readln;
end.
Đúng 1 Bình luận (0) Gửi Hủy 
- 35.Nguyễn Phương thanh
viết chương trình tạo mảng gồm n bé hơn hoặc bằng 150
a) tính và đưa ra màn hình tích các số lẻ chia hết cho 3 trong mảng
b)đưa ra vị trí phần tử có giá trị nhỏ nhất trong mảng , nếu có nhiều giá trị nhỏ nhất thì đưa ra chỉ số lớn nhất
c)đưa ra màn hình sau khi được sắp sắp theo thứ tự tăng dần của các giá trị trong mảng
Xem chi tiết Lớp 11 Tin học Bài 11: Kiểu mảng 1 0 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 9 tháng 2 2022 lúc 22:49 #include <bits/stdc++.h>
using namespace std;
long long a[150],i,s,n,nn;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
s=1;
for (i=1; i<=n; i++)
if (a[i] %2!=0 && a[i]%3==0) s=s*a[i];
cout<<s<<endl;
nn=a[1];
for (i=1; i<=n; i++) nn=min(nn,a[i]);
for (i=n; i>=1; i--)
if (nn==a[i])
{
cout<<i<<endl;
break;
}
sort(a+1,a+n+1);
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
Đúng 0 Bình luận (0) Gửi Hủy 
- Phương Vũ Hà
Gửi Hủy Nguyễn Lê Phước Thịnh CTV 1 tháng 3 2021 lúc 17:19 uses crt;
var a:array[1..100]of integer;
n,i,k,max,min,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Gia tri lon nhat la: ',max);
writeln('Vi tri la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Gia tri nho nhat la: ',min);
writeln('Vi tri la: ');
for i:=1 to n do
if min=a[i] then write(i:4);
writeln;
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+sqr(a[i]);
writeln('Tong binh phuong cac gia tri o vi tri chan la: ',t);
readln;
end.
Đúng 2 Bình luận (0) Gửi Hủy 
- anhle
viết chương trình nhâp vào mảng các số nguyên A gồm tối đã 30 phần tử có giá trị không quá 255, thông báo ra màn hình phần tử lớn nhất và vị trí của nó trong mảng
Xem chi tiết Lớp 8 Tin học Bài 9. Làm việc với dãy số 1 0 Gửi Hủy 
Kiều Vũ Linh CTV 
27 tháng 4 2023 lúc 8:07 Var a:array[1..30] of integer;
i,max,d:integer;
Begin
For i:=1 to 30 do
Begin
Repeat
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
Until a[i]<=255;
End;
max:=a[1];
d:=1;
For i:=2 to 30 do
If a[i] > max then
Begin
max:=a[i];
d:=i;
End;
Write('Phan tu lon nhat la ',max,' tai vi tri ',i);
Readln
End.
Đúng 2 Bình luận (0) Gửi Hủy 
- Lê Thị Hồng anh
Viết chương trình nhập vào mảng a gồm n phần tử (n <40) n nhập từ bàn phím
Hãy in ra màn hình vị trí của phần tử có giá trị lớn nhất trong mảng nếu mảng có phần tử có cùng giá trị lớn nhất thì in ra màn hình của phần tử lớn nhất ở vị trí lớn nhất
Xem chi tiết Lớp 11 Tin học 1 1 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 14 tháng 2 2022 lúc 21:29 #include <bits/stdc++.h>
using namespace std;
long long a[40],i,n,ln;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
{
cin>>a[i];
}
ln=a[1];
for (i=1; i<=n; i++) ln=max(ln,a[i]);
for (i=n; i>=1; i--)
if (ln==a[i])
{
cout<<i;
break;
}
return 0;
}
Đúng 0 Bình luận (0) Gửi Hủy 
- Thi Đua Khen Thưởng
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í đó .
Xem chi tiết Lớp 11 Tin học Kiểu dữ liệu có cấu trúc 1 0 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 25 tháng 3 2021 lúc 19:18 uses crt;
var a:array[1..100]of integer;
i,n,t,min,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 3 la: ',t);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
vt:=1;
for i:=1 to n do
if min=a[i] then
begin
if vt<i then vt:=i;
end;
writeln('Gia tri nho nhat la: ',min);
writeln('Vi tri la: ',vt);
readln;
end.
Đúng 0 Bình luận (0) Gửi Hủy 
- Thọ Lê Đức
Bài 23: Viết chương trình nhập vào 1 mảng số nguyên.In ra màn hình giá trị trung bình của mảng đó và các phân tử lớn hơn giá trị trung bình của mảng đó Bài 24:Viết chương trình tìm giá trị lớn nhất( in ra vị trí chứa phần tử có giá trị lớn nhất )của dãy số gồm n số nguyên được nhập từ bàn phím CẦN GẤP CÂU TRẢ LỜI Ạ:((
Xem chi tiết Lớp 8 Tin học 2 0 Gửi Hủy Kiều Vũ Linh CTV 28 tháng 4 2023 lúc 16:09 Bài 23
var a:array[1..1000] of integer;
i,n:integer;
s,tbc:real;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
s:=s+a[i];
end;
tbc:=s/n;
writeln('Gia tri trung binh la ',tbc:10:2);
write('Cac so lon hon gia tri trung binh la: ');
for i:=1 to n do
if a[i] > tbc then write(a[i]:8);
readln
end.
Đúng 0 Bình luận (0) Gửi Hủy Kiều Vũ Linh CTV 28 tháng 4 2023 lúc 16:12 var a:array[1..1000] of integer;
i,n,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
for i:=1 to n do
begin
if max=a[i] then write(max,' o vi tri thu ',i);
break;
readln
end.
Đúng 0 Bình luận (0) Gửi Hủy 
- Hoàng Vlogs
Viết chương trình nhập vào một mảng;a. Viết hàm tìm vị trí phần tử lớn nhất trong mảng vừa nhập.b. Viết hàm chèn phần tử có giá trị X vào phía sau phần tử có giá trị lớn nhất trong mảng.c. In ra mảng sau khi chèn phần tử XLấy một ví dụ giải thích cho ý a., ý b.
Xem chi tiết Lớp 12 Tin học 0 0 Gửi Hủy 
- taf.amp
Viết chương trình nhập vào mảng các số nguyên A gồm tối đa 30 phần tử, các phần tử có giá trị không quá 255? Thông báo ra màn hình phần tử lớn nhất và vị trí của nó trong mảng?
Xem chi tiết Lớp 8 Tin học 1 1 Gửi Hủy 
Kiều Vũ Linh 
2 tháng 5 2022 lúc 7:50 Var a:array[1..30] of integer;
i,n,d,max:integer;
Begin
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;
max:=a[1];
For i:=2 to n do
Begin
If a[i] > max then
Begin
max:=a[i];
d:=i;
End;
End;
Write('Phan tu lon nhat la ',max,' o vi tri ',d);
Readln;
End.
Đúng 0 Bình luận (0) Gửi Hủy 
- Trần Quyên
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.
Xem chi tiết Lớp 11 Tin học Bài 11: Kiểu mảng 1 0 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 26 tháng 3 2021 lúc 22:46 uses crt;
var a,b,vt:array[1..100]of integer;
n,i,dem,j,kt,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
b[1]:=a[1];
dem:=1;
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if b[j]=a[i] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
for i:=1 to dem do
if b[i] mod 2<>0 then
begin
max:=0;
for j:=1 to n do
if b[i]=a[j] then begin if max<j then max:=j;
end;
writeln(b[i],' xuat hien o vi tri thu ',max);end;readln;end.
Đúng 1 Bình luận (0) Gửi Hủy Từ khóa » Tìm Số Lớn Nhất Và Nhỏ Nhất Trong Mảng Pascal
-
Bài Tập Pascal - Tìm Giá Trị Lớn Nhất Trong Mảng Một Chiều
-
Viết Chương Trình Pascal Tìm Số Lớn Nhất Và Nhỏ Nhất - TopLoigiai
-
Lập Trình Pascal: In Ra Phần Tử Nhỏ Nhất, Lớn Nhất Trong Dãy Số Nhập ...
-
Tìm Giá Trị Lớn Nhất, Nhỏ Nhất Của Mảng Hai Chiều - Minh Họa Trong ...
-
Tìm Giá Trị Lớn Nhất Mảng 1 Chiều - Code Pascal
-
Chương Trình Tìm Số Lớn Nhất Max Và Số Nhỏ Nhất Min Từ Dãy Sô
-
Viết Phương Trình Pascal Tìm Số Tự Nguyên Lớn Nhất Và In Ra Màn Hình
-
PASCAL 1.Nhập Một Mảng Gồm N Số Nguyên, Xuất Ra Số Nhỏ Nhất Và ...
-
Viết Chương Trình Tìm Giá Trị Lớn Nhất Và Giá Trị Nhỏ Nhất Của Dãy Số ...
-
Bài Tập Pascal 04 Mảng 1 Chiều - Tài Liệu Text - 123doc
-
Viết Chương Trình Pascal Tìm Giá Trị Nhỏ Nhất Trong Dãy A={a_1, A_2 ...
-
Tìm Số Lớn Nhất, Nhỏ Nhất - Em Yêu Tin Học