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.
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.
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.
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.