Помогите пожалуйста с паскалем

[Сергей161]

Дорогие друзья помогите пожалуйста с этой задачей, а то завтра сдавать особо нет времени углубляться в изучение материала. Очень буду благодарен за любую помощь. Заранее спасибо!!!
1.Организуйте массив. Определите среднее значение чисел. Выведите на дисплей значение
и индекс элемента, ближайшего к среднему значению.

[Аватар]

а то завтра сдавать особо нет времени углубляться в изучение материала

А времени на что нет - сдавать или углубляться?

[newerow1989]

завтра сдавать

А завтра - это уже сегодня. Так что успеешь!!!!!

var p:array[1..10] of byte;
    i,j:byte;
    s,a:real;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i],'  ');
   end;
   Writeln;
   s:=0;
   For i:=1 to 10 do
      s:=s+p[i];
   s:=s/10;
   Writeln(s:5:5);
   j:=1;
   a:=Abs(p[j]-s);
   For i:=2 to 10 do
      If a>Abs(p[i]-s) then
      begin
         j:=i;
         a:=Abs(p[j]-s);
      end;
   Writeln('p[',j,'] = ',p[j]);
   Readln;
end.

Сойдет?

[WorldMaster]

Сообщение от Сергей161

1.Организуйте массив. Определите среднее значение чисел. Выведите на дисплей значение
и индекс элемента, ближайшего к среднему значению.

Ох ничесе.. Ну тут конечно, нужно 2 года обучения и 10 лет практики ...