Nhập vào một mảng,tìm hai số x,y lớn nhất sao cho gt (|x-y|)*(|x+y|) là số lớn nhất. Ràng buộc: +x là số lớn nhất,y=10^6) +Mảng có thể có phần tử dương,số 0 và âm +Có nhiều trường hợp

lena0609

2 năm trước

Nhập vào một mảng,tìm hai số x,y lớn nhất sao cho gt (|x-y|)*(|x+y|) là số lớn nhất. Ràng buộc: +x là số lớn nhất,y<=x (x,y>=10^6) +Mảng có thể có phần tử dương,số 0 và âm +Có nhiều trường hợp

Loga Sinh Học lớp 12

0 lượt thích 20 xem

1 trả lời

Thích Trả lời

lhuytu112

Nếu có lỗi thì bạn nói mình nhé. ^^

program Hello;
uses crt;
var a:array[1..100] of longint;
x,y,i,j,n,p1,p2:longint;
begin
clrscr;
p1:=0;
write('n = ');
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
for j:=i to n do
begin
p2:=abs(a[i]-a[j])*abs(a[i]+a[j]);
if abs(x)=abs(a[i]) then
x:=abs(x);
if abs(y)=abs(a[j]) then
y:=abs(y);
if p1<=p2 then
begin
p1:=p2;
x:=a[i];
y:=a[j];
end;
end;
if x<y then
begin
i:=x;
x:=y;
y:=i;
end;
writeln('|x-y|*|x+y| = ', p1);
write('x = ', x, ' | y = ', y);

end.

Vote (0) Phản hồi (0) 2 năm trước

loga.2018

uses crt;
var i,n,j:longint;
a:array[1..1000000] of longint;
x,y,max,t:longint;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]);
readln;
x:=a[1];
y:=a[2];
max:=abs(x-y)*abs(x+y);
for i:=1 to n-1 do
for j:=i+1 to n do
begin
t:=abs(a[i]-a[j])*abs(a[i]+a[j]);
if t>=max then
begin
max:=t;
if (a[i]>=a[j]) or (a[i]>=x) then
begin
x:=a[i];
y:=a[j];
end
else
begin
x:=a[j];
y:=a[i];
end;
end;
end;
writeln(x,' ',y);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

1.What time Ba (get)......... up everyday ? =< Điền từ vào chỗ trống

giup mình bài 2 vs nha mng thx nhiều ạ ( 50 điểm )

chia động từ trong ngoặc sau đó chuyển sang passive voice 1 At this time last year, they (build) this stadium. 2 I (drive) my motorbike very fast when James called me. 3 I (chat) with Hannah while Mr. Henry (teach) the lesson yesterday. 4 My brother (watch) TV when I got home. 5 At this time last night, I (prepare) for my husband’s birthday party. My mother (not do) the housework when our grandparents came home. Ms. Stacey (read) books while her children (play) football yesterday afternoon.

Trong mặt phẳng với hệ trục tọa độ Oxy, cho tam giác ABC cân tại A và M là trung điểm cạnh AB. Biết I( 8/3;1;3) là tâm đường tròn ngoại tiếp tam giác ABC và G (3;0), K( 7/3;1/3) lần lượt là trọng tâm của các tam giác ABC và ACM . Tìm tọa độ A, B , C. Mình cần gấp, mọi người giúp mình nhé!

Ai làm giúp đc ko mới bị rối não rồi

Sau giảm giá 30%thì giá một chiếc xe đạp là 140000đồng hỏi giá bán của chiếc xe đạp là bao nhiêu

Ở người bình thường, mỗi lần tâm thất co đẩy đi 80ml máu và trong 1 giờ đã đẩy đi được 360l máu. Biết rằng thời gian của pha giãn chung bằng nửa chu kì co tim, tâm nhĩ co bằng 1/3 tâm thất co. Hãy tính: a) Số lần mạch đập trong 1 phút b) Thời gian hoạt động của 1 chu kì co giãn tim c) Thời gian tâm thất giãn, tâm nhĩ giãn trong 1 chu kì co giãn của tim. Thời gian đó có ý nghĩa gì với hoạt động của tim ? GIÚP VS Ạ . NHANH CÀNG TỐT

các từ cùng cách phát âm với từ look

giúp mình với ạ plz help me mình sẽ cho ctlhn ạ

Nêu rõ từng dấu hiệu nhận biết các dạng bị động đặc biệt và cách chuyển từ câu chủ động sang bị động

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến