Собсно ещё одна програмка которую я не могу сделать !


Надеюсь на вашу помощь

Поиск тебе недоступен?

Вот, например: одномерный массив

На сколько я понял по условию там нужно найти средний элемент из всех введённых чисел ! а мне нужно к тому которое ввожу я !
Вроде понял я прально , если нет то уж извините )

Заводишь две переменные - min и max
проходишь по массиву, считаешь модуль разности введенного тобой числа и элемента. если >|max-R|, присваиваешь max новое значение. Аналогично с min

uses crt;
const n=10;
var m:array [1..n] of real;
    i:integer;
    r,blizhn,daln:real;
begin
 randomize;
 clrscr;
 write ('Enter real type number [0..1]: ');
 readln (r);
 for i:=1 to n do
  begin
   m[i]:=random;
   writeln (m[i]
4);
  end;
 blizhn:=m[1];
 daln:=m[1];
 for i:=2 to n do
  begin
   if abs(m[i]-r)<abs(blizhn-r) then blizhn:=m[i];
   if abs(m[i]-r)>abs(daln-r) then daln:=m[i];
  end;
 writeln ('r: ',r:1:4,'  ','blizhn: ',blizhn:1:4,'  ','daln: ',daln:1:4);
 readkey;
end.