Массивы 5з

uses crt;
const n=4;
var
a:array[1..n] of integer;
razn:array[1..n] of real;
sr,i,ielem:integer;
min,sred:real;
begin
clrscr;
randomize;
sr:=0;
for i:=1 to n do
    begin
     a[i]:=random(30);
     write(a[i]:4);
     sr:=sr+a[i];
    end;
    sred:=sr/n;
    for i:=1 to n do
      razn[i]:=a[i]-sred;
   min:=razn[1];
   for i:=2 to n do
 
   if razn[i]>min then
    begin
    min:=razn[i];
   ielem:=i;
   end;
   writeln;
   writeln(sred:4:0);
   for i:=1 to n do
   write(razn[i]:4:0);
   writeln;
   write(ielem);
   readkey;
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    sr,mn:real;
    n,i,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
sr:=0;
for i:=1 to n do
 begin
  a[i]:=10*random;
  sr:=sr+a[i];
  write(a[i]:0:2,' ');
 end;
sr:=sr/n;
writeln;
writeln;
k:=1;
mn:=abs(a[1]-sr);
for i:=1 to n do
if abs(a[i]-sr)<mn then
 begin
  mn:=abs(a[i]-sr);
  k:=i;
 end;
write('Среднее=',sr:0:2,' номер элемента=',k,'  разность=',abs(sr-a[k]):0:2);
readln
end.

Program M5;
const n=11;
type t=array [1..n] of integer;
var a:t; s:real; min:real; ni,i:integer;
Procedure input (var a:t);
 begin
   for i:=1 to n do
   begin
     write ('a[',i,']=');
     readln (a[i]);
   end;
 end;
Procedure obr1(a:t; var s:real);
  begin
    s:=0;
    for i:=1 to n do
     s:=s+a[i];
     s:=s/n;
  end;
Procedure obr2(a:t; s:real; var ni:integer);
 var min:real;
 begin
  min:=abs(s-a[i]);
  i:=1;
  for i:=2 to n do
  if abs(s-a[i]) < min
   then min:=abs(s-a[i]);
    ni:=i;
 end;
 begin {main}
 input (a);
 obr1(a,s);
 obr2(a,s,ni);
 writeln('nomer=', ni);
 readln;
end.

Procedure obr2(a:t; s:real; var ni:integer);
var min:real;
begin
 min:=abs(s-a[1]);
 ni:=1;
 for i:=2 to n do
 if abs(s-a[i]) < min then 
   begin
     min:=abs(s-a[i]);
     ni:=i;
   end;
end;