Tin học Tin học

Lê Quang Lượng

Học sinh mới
Thành viên
11 Tháng ba 2019
1
0
1
22
Nam Định
Trần Văn Lan THPT
[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 :))))_gh_
 

Deathheart

Cựu TMod Vật Lí
Thành viên
18 Tháng năm 2018
1,535
2,868
411
Quảng Trị
THPT Đông Hà
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 :))))_gh_
Mã:
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é ^^
 
Top Bottom