Одномерный массив Опции

[Demian]

Вывести информацию о наибольшем, наименьшем и наименее удаленном от среднего арифметического членах последовательности вещественных чисел.

uses crt;
var a:array [1..100] of integer;
i,n,max,min,k:integer;
 begin
 clrscr;
 writeln ('Vvedite razmernostb massiva');
 readln(n);
  for i:=1 to n do begin
  a[i]:=random(10);
  writeln (a[i]:3);
  if a[i]>max then max:=a[i];
  end;
 writeln;
 writeln ('maksimalbnui element massiva=', max);
 writeln ('nomera maksimalbnux elementov');
  for i:=1 to n do begin
  if a[i]=max then begin k:=k+1;
    writeln ('a[',i,']=');
  end;
 end;
writeln ('kolli4estvo maksimalbnux elementov=',k);
readln;
  end.

Прошу о помощи. Как найти мин и сред. ариф.

Сообщение отредактировано: Demian - 24.06.2008 22:35