задачи на массив среднеарифметическое и min,max

[Stinging]

народ помогите плиз тут несколько задач надо решить...

1. Program Pr 1;
var a:array[1..10] of integer;
i,j,k,p:integer;
min,max,m:integer;
Begin
randomize;
for i:1 to 10 do begin
a[i]:=random(50)-20;
write(a[i],' ');
end;
writeln;
m:=1;
max:a[1];
for i:=2 to 10 do if a[i]>max then begin max:=a[i]; m:=1;
writeln('наибольший элемент',max,'его номер',m);
writeln;
readln;
end.

проблема в том что над еще посчитать минимум и поменять их местами минимум с максимум.

2 вычислить корни квадратного уровнения
Program Pr 2;
uses crt;
var a,b,c,p:real;
Begin
writeln('введите число');
readln(a,b,c);
P=(sqr(a)*a)+(sqr(b))+c;
writeln('P=',P:8:2);
readln;
end.

проверти пожайлуста правельность написании программы и там надо еще дискриминант вычислить...

3
нужно создать и вычислить среднее арифмитическое из 10 чисел

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,max,min,temp:integer;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
writeln;
max:=1;min:=1;
for i:=2 to n do
 if a[i]>a[max] then max:=i
    else if a[i]<a[min] then min:=i;
Writeln('Max element ',a[max]);
Writeln('Min element ',a[min]);
temp:=a[max];
a[max]:=a[min];
a[min]:=temp;

for i:=1 to n do
  write(a[i]:3);
end.

[alex_fcsm]

uses crt;
var a,b,c,D:real;
Begin
clrscr;
writeln('Koeff');
readln(a,b,c);
D:=(sqr(b)-4*a*c);
if D>0 then begin
              writeln('x1=',(-b-sqrt(D))/2*a:10:4);
              writeln('x2=',(-b+sqrt(D))/2*a:10:4);
            end
   else if D=0 then writeln('x=',-b/2*a:10:4)
        else writeln('NO');
readln;
end.

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n] of integer;
    i:integer;
    s:real;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
writeln;
s:=0;
for I:=1 to n do
 s:=s+a[i];
s:=s/n;
writeln('Average:',s:8:4);
end.

[Stinging]

большое спс