srzontmp
delta:=abs(pi-a[1]); ind:=1; for i:=2 to m do if abs(pi-a[i])<delta then begin delta:=abs(pi-a[i]); nom:=a[i]; ind:=i; end; write('наиболее близкий элемент к pi: ',nom); writeln(' индекс: ',ind); end.
Файл не прикрепился, поэтому двумя частями, все не входит в один комментарий
srzontmp
const n=100; type arr = array[1..n] of real; {формирование массива} procedure InArray(var a: arr; j: integer); var i: integer; begin randomize; for i:=1 to j do begin a[i]:=round(random()*1000)/100; write(a[i],' '); end; writeln; end;
var a: arr; i,m,ind: integer; delta,nom: real; begin write('n = '); readln(m); InArray(a,m); delta:=abs(pi-a[1]); ind:=1;
srzontmp
Первая половина не полностью записана была.
Answers & Comments
randomize;
for i:=1 to j do
begin
a[i]:=round(random()*1000)/100;
write(a[i],' ');
end;
writeln;
end;
var a: arr;
i,m,ind: integer;
delta,nom: real;
begin
write('n = '); readln(m);
InArray(a,m);
delta:=abs(pi-a[1]);
ind:=1;
ind:=1;
for i:=2 to m do
if abs(pi-a[i])<delta then
begin
delta:=abs(pi-a[i]);
nom:=a[i];
ind:=i;
end;
write('наиболее близкий элемент к pi: ',nom);
writeln(' индекс: ',ind);
end.
Файл не прикрепился, поэтому двумя частями, все не входит в один комментарий
type arr = array[1..n] of real;
{формирование массива}
procedure InArray(var a: arr; j: integer);
var i: integer;
begin
randomize;
for i:=1 to j do
begin
a[i]:=round(random()*1000)/100;
write(a[i],' ');
end;
writeln;
end;
var a: arr;
i,m,ind: integer;
delta,nom: real;
begin
write('n = '); readln(m);
InArray(a,m);
delta:=abs(pi-a[1]);
ind:=1;