Show
Nhập vào một dãy n số nguyên A[1],A[2],...,A[n] . Đọc ra màn hình các thông tin sau : 1.Giá trị lớn thứ nhì của dãy và các chỉ số của các số hạng đạt giá trị lớn nhì. 2.Giá trị nhỏ thứ nhì của dãy và các chỉ số của các số hạng đạt giá trị nhỏ nhì. Các câu hỏi tương tự
Top 1 Viết chương trình nhập mảng tìm số thứ nhì trong n số được nhập từ bàn phím. vd: nhập các số 10;10;9;9;8 thì được số lớn thứ nhì là 9. được cập nhật mới nhất lúc 2021-11-11 10:43:17 cùng với các chủ đề liên quan khác
viết chương trình nhập mảng tìm số thứ nhì trong n số được nhập từ bàn phím. vd: nhập các số 10;10;9;9;8 thì được số lớn thứ nhì là 9.Hỏi: viết chương trình nhập mảng tìm số thứ nhì trong n số được nhập từ bàn phím. vd: nhập các số 10;10;9;9;8 thì được số lớn thứ nhì là 9.viết chương trình nhập mảng tìm số thứ nhì trong n số được nhập từ bàn phím.vd: nhập các số 10;10;9;9;8 thì được số lớn thứ nhì là 9. Đáp: khanhngan:program lonnhi; uses crt; var A:array[1..100] of integer; n,i,j,tg:integer; begin clrscr; write(‘Nhap so luong phan tu cua mang: ‘); readln(n); for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); end; write(‘Mang vua nhap la: ‘); for i:=1 to n do write(A[i],’ ‘); for i:=1 to n-1 do for j:=i+1 to n do if A[i]<A[j] then begin tg:=A[i]; A[i]:=A[j]; A[j]:=tg; end; i:=2; while A[i]=A[1] do i:=i+1; write(‘So lon nhi trong mang la: ‘,A[i]); readln end. khanhngan:program lonnhi; uses crt; var A:array[1..100] of integer; n,i,j,tg:integer; begin clrscr; write(‘Nhap so luong phan tu cua mang: ‘); readln(n); for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); end; write(‘Mang vua nhap la: ‘); for i:=1 to n do write(A[i],’ ‘); for i:=1 to n-1 do for j:=i+1 to n do if A[i]<A[j] then begin tg:=A[i]; A[i]:=A[j]; A[j]:=tg; end; i:=2; while A[i]=A[1] do i:=i+1; write(‘So lon nhi trong mang la: ‘,A[i]); readln end. khanhngan:program lonnhi; uses crt; var A:array[1..100] of integer; n,i,j,tg:integer; begin clrscr; write(‘Nhap so luong phan tu cua mang: ‘); readln(n); for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); end; write(‘Mang vua nhap la: ‘); for i:=1 to n do write(A[i],’ ‘); for i:=1 to n-1 do for j:=i+1 to n do if A[i]<A[j] then begin tg:=A[i]; A[i]:=A[j]; A[j]:=tg; end; i:=2; while A[i]=A[1] do i:=i+1; write(‘So lon nhi trong mang la: ‘,A[i]); readln end. viết chương trình nhập mảng tìm số thứ nhì trong n số được nhập từ bàn phím. vd: nhập các số 10;10;9;9;8 thì được số lớn thứ nhì là 9.Trích nguồn : ...
60 điểm NguyenChiHieu
Tìm số lớn thứ nhì trong n số được nhập từ bàn phím. Tổng hợp câu trả lời (1)
Program So_lon_nhi; Var n,i,so, nhi,max,tam:integer; Procedure swap(var x,y:real); var tam:real; begin tam:=x; x:=y; y:=tam; end; Begin Write('Nhap n: ');Readln(n); Write('nhap so:');Readln(max); Write('nhap so: ');Readln(nhi); if nhi > Max then swap(Max,nhi) For i:= 3 to n do Begin Write('Nhap so: ');Readln(so); if (so>nhi) and (somax then Begin nhi:=max; Max:=so; End; End; Write('So thu nhi la: ',nhi); Readln End. Câu hỏi hay nhất cùng chủ đề
Tham khảo giải bài tập hay nhấtLoạt bài Lớp 11 hay nhấtxem thêm |