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

0 bình luận về “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. 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ế ?

   Bình luận