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