Вот возможная интерпретация слов
volvo Код
Program t1;
uses
crt;
var
a:array[1..1000] of real;
i,n,k:integer;
M,q,s:real;
begin
clrscr;
writeln('input M');
write('M=');
readln(M);
writeln('input number of elements of array');
write('n=');
readln(n);
writeln('input elements');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
begin
q:=Abs(a[i-1]-M);
s:=Abs(a[i]-M);
if s<q then
begin
k:=i;
end;
end;
writeln('No=',k);
end.
Только у меня следующие вопросы /*паскалем давно не занимался, лишь недавно на голову свалился*/: как сделать, чтоб M было integer и как сделать чтоб выводило номера равноудалённых элементов? К примеру, M=4 a1=2, a2=6 ?