Câu 1:

uses crt;
var  a : array [1..10] of integer;
        j,i,ss,s: integer;
begin
        clrscr;
        for i:=1 to 10 do
                begin
                write('nhap so thu ',i,'= ');
                readln(a[i]);
                end;
        while j<3 do
        begin
        ss:=a[1];
        for i:=2 to 10 do
        begin
                if ss< a[i] then ss:=a[i];
        end;
         for i:=2 to 10 do
                if ss = a[i] then
                        begin
                        a[i]:=a[i-1]
                        end;
        s:=s+ss;
        j:=j+1;
        end;
        write('tong 3 so lon nhat trong mang la: ',s);
        readln
end.

Câu 1:

program cau1;

var

       i,j,tam:longint;

       A:array[1..100] of longint;

begin

         for i:=1 to 10 do readln(A[i]);

        for i:=1 to 9 do

        for j:=i+1 to 10 do if A[i]<A[j] then

        begin

                  tam:=A[i];

                  A[i]:=A[j];

                  A[j]:=tam;

       end;

      write('Tong la: ',A[1]+A[2]+A[3]);

      readln;

end.

Mình giải thích xíu: Thuật này là mình sẽ sắp xếp dãy theo thứ tự giảm dần sau đó cộng 3 phần tử đầu tiên lại

VD: Mình có dãy: 3 5 4 8 2 7 9 4 6 3

       Sau khi sắp xếp: 9 8 7 6 5 4 4 3 3 2

       Mình tính tổng 3 phần tử đầu tiên sau khi sắp xếp= 9+8+7=24

#Ban_chay_thu_code_va_vi_du_xem_ra_ket_qua_dung_khong_nhe

#Co_gi_khong_hieu_ban_hoi_lai_nhe

#Chuc_ban_hoc_tot