Nhập dãy số thực.Tìm 3 phần tử trong dãy có tổng lớn nhất a,Xác định bài toán(input,output) b, Viết chương trình Pascal
1 câu trả lời
Xác định bài toán:
Input: Dãy số thực
Output: 3 phần tử có tổng lớn nhất trong dãy
Chương trình:
program bai_giai;
uses crt;
var A:array[1..1000] of real;
n,i,j:integer;
tg:real;
begin
readln(n);
for i:=1 to n do read(A[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]<A[j] then
begin
tg:=A[i]; A[i]:=A[j]; A[j]:=tg;
end;
write(A[1],' ',A[2],' ',A[3]);
readln;
end.
