Nhập vào số nguyên dương N và N số nguyên từ bàn phím. In ra số lớn thứ nhì trong N số nguyên đó. Input: 14 -251 -537 537 -645 -476 641 956 121 545 369 -817 801 681 941 Output: 941
2 câu trả lời
uses crt;
var a:array[1..1000]of longint;i,j,n,tam:longint;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n+1 do
for j:=i+1 to n do
if(a[i]<a[j])then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
write('so lon thu hai la:',a[2]);
readln
end.
Program Typlex;
Var A:array[1..100000] of integer :
i, j, n, tam: integer ;
Begin
Writeln(Nhap so luong phan tu: );
Readln(n):
For i:=1 to n do
Begin
Writeln('A[',i,']=' ):
Readln(A[i]);
End;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i] > A[j] then
Begin
tam :=A[i];
A[i] := A[i];
A[i] := tam ;
End;
Writeln('So lon thu hai trong mang: ', A[n-1]);
Readln
End
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 9 có lời giải chi tiết
