Tạo một mảng A gồm n phần tử được tạo ngẫu nhiên trong khoảng -100 đến 100. Nhập từ bàn phím số z, hãy tìm phần tử sao cho trị tuyệt đối của số đó và z là lớn nhất.

sedusiriseni

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 30 xem

1 trả lời

Thích Trả lời

dungbuu2410

Program Tao_mang;
Uses crt;
Var A: array[1..10000] of longint;
n,z,i,min,vt: longint;
Begin
Clrscr;
Write('Nhap so n, z: '); Readln(n,z);
Write('Mang tao ngau nhien: ');

Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(101) - Random(101);
Write(A[i],' ');
End;
End;

min:=abs(A[1]-z); vt:=1;
For i:=1 to n do
If (abs(A[i])-z)<min then
Begin
min:=abs(A[i]-z);
vt:=i;
End;

Writeln;
Write('Ket qua: ',A[vt]);
Readln;
Readln
End.

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

hominhquang

uses crt;
type tlist = array[1..1000] of longint;
var i,n,m,kq,z:longint;
a,b:tlist;
function max(b:tlist):longint;
begin
m:=-maxlongint;
for i:=1 to n do
if b[i] > m then
begin
m:=b[i];
kq:=i;
end;
exit(kq);
end;
begin
write('Nhap z: '); read(z);
clrscr;
write('Nhap n: '); read(n);
for i:=1 to n do
begin
write('Nhap phan tu thu',i,' :');
read(a[i]);
clrscr;
end;
for i:= 1 to n do
begin
b[i]:=abs(a[i]-z);
end;
write('Phan tu can tim la: ',a[max(b)]);
end.

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

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

Giúp em câu 6b với ạ, em chưa gặp bh

Hai vật I và II đồng chất, được làm cùng một loại chất liệu không thấm nước và có cùng chiều cao H = 8cm. Vật I có dạng hình trụ tiết diện đều, đường kính đáy D = 8cm; vật II dạng hình nón, đường kính đáy cũng bằng D = 8cm. - Thả vậy I vào một bình nước hình trụ thì nổi trong nước ở trạng thái thẳng đứng, làm cho nước trong bình dâng cao thêm 3cm, khi đó mặt đáy trên của vật I ngang qua miệng bình và cao hơn mặt nước trong bình 1cm. Biết khối lượng riêng của nước là ρn = 1 kg/lít. a. Tính khối lượng riêng của hai vật trên và bán kính R của đáy bình. b. Bây giờ lấy vật I ra khỏi bình, rồi thả vật II vào bình, sao cho đỉnh hình nón nằm phía trên và trục đối xứng của nó có phương thẳng đứng. Hãy so sánh độ cao của đỉnh hình nón và miệng bình.

bị động 1. i have to finish my work now, ->........ 2. you must do your task. ->..... 3. governments should offer poor wornen more help. ->............. 4. we must do something before it's too day. ->..................... 5. my uncle may earn 500 a day .->...................... 6. he might have caught the fish .->.................... 7. they will sue the company for wage discrimination.->.................... 8. she could have washed the dress.->..................... 9. she can't pick many flowers.->............. 10. ann can't use her office at the moment .->......

làm giúp mình bài cuối trang 14 sgk lớp 5 tập 2

Giải giúp mk vs ạ mk đg cần gấp

Tưởng tượng và kể lại lời tâm sự xủa chiếc bàn và ghế bị bỏ quên ở sân trường sau 1 đêm mưa gió

Em hãy nhận xét tình huống sau Một hôm bạn Điệp tới nhà bạn Lan chơi, thấy trên góc học tập của Lan có lên kế hoạch thời gian và công việc thực hiệntrong 1 tuần rất chi tiết nên Điệp đứng đọc. Thấy vậy nên Lan nói' mình lên kế hoạch chứ thực hiện được đâu, lúc lên kế hoạch thì hồ hởi, còn lúc thực hiện thì gò bó khó chịu'

giai giup e bai 1voi a le le giup em a

Giup minh thuyet minh ve hòn đá bạc - giup minh với dung sao chep mang nha bai tap Tet :<

Giúp mk với ạ ai bt giải hộ mk nha

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