30 điểm cho ai giúp mình : Cho mảng con có n phần tử (n<1000) : 1. Tìm số lớn nhì trong mảng 2. Tìm đoạn con có tổng lớn nhì trong mảng
1 câu trả lời
program bt;
uses crt;
var n,i,Max,Max2:integer;
A:array[1..1000] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do read(A[i]);
if A[1]>A[2] then
begin
Max:=A[1];
Max2:=A[2];
end
else
begin
Max:=A[2];
Max2:=A[1];
end;
For i:=3 to n do if A[i]>Max then
begin
Max2:=Max;
Max:=A[i];
end;
writeln('So lon nhi: ',Max2);
readln;
readln;
end.
Chưa rõ ý 2. Đoạn con liên tiếp hay sao thế ?
Câu hỏi trong lớp
Xem thêm
