Tin học Tin học

[Lê Quang Lượng]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Các cậu làm ơn giúp mình với. Mình có bài toán sau:
Cho n là số nguyên dương(1<=n<=800) và các số a1,a2,..a n là các số thực. TÌm các số của dãy bằng tổng hai số khác trong dãy.
Ví dụ : Mản 5 phần tử gồm
1 3 4 9 18
Kết quả đưa ra là 4.
Làm ơn giúp mình đi )))

 

[Deathheart]

Các cậu làm ơn giúp mình với. Mình có bài toán sau:
Cho n là số nguyên dương(1<=n<=800) và các số a1,a2,..a n là các số thực. TÌm các số của dãy bằng tổng hai số khác trong dãy.
Ví dụ : Mản 5 phần tử gồm
1 3 4 9 18
Kết quả đưa ra là 4.
Làm ơn giúp mình đi )))

var  i,j,k,n,m:integer;
     a:array[1..100]of integer;
procedure       nhap;
begin
     write('nhap so phan tu: ');
     readln(n);
     for i:=1 to n do
     begin
          write('nhap phan tu thu ',i,':');
          readln(a[i]);
     end;
end;
procedure       sapxep;
var i,j,t:integer;
begin
     for i:=1 to n-1 do
     for j:=i+1 to n do
     if a[i]<a[j] then
     begin
          t:=a[i];
          a[i]:=a[j];
          a[j]:=t;
     end;
end;
procedure       process;
var d:byte;
begin
     for i:=1 to n-1 do
     begin
          d:=0;
          for j:=i+1 to n do
          begin
               m:=a[i]-a[j];
               for k:=j+1 to n do
               if a[k]=m then d:=d+1;
          end;
          if d>0 then write(a[i],' ');
     end;
end;
begin
     nhap;
     sapxep;
     process;
     readln;
end.

đây nhé ^^