напишите проги в ПАСКАЛЕ плиз!!!очень надо.

uses CRT;
const n = 10;
var k,min1,min2,min3,p1,p2,p3: Integer; a: array [1..n] of Integer;
begin
clrscr;
for k:=1 to n do readln(a[k]);
min1:=a[1];
p1:=1;
for k:=2 to n do if a[k]< min1 then
begin
min1:=a[k];
p1:=k;
end;
writeln('min1=',min1);
for k:=1 to n do if k <> p1 then
begin
min2:=a[k];
p2:=k;
break;
end;
for k:=2 to n do if (a[k] <= min2) and (k <> p1) then
begin
min2:=a[k];
p2:=k;
end;
writeln('min2=',min2);
for k:=1 to n do if (k <> p1) and (k <> p2) then
begin
min3:=a[k];
p3:=k;
break;
end;
for k:=2 to n do if (a[k] <= min3) and (k <> p1) and (k <> p2) then min3:=a[k];
writeln('min3=',min3);
writeln('Сумма трех наименьших элементов массива: ',min1+min2+min3);
readkey;
end.

2.

uses CRT;
const n = 10;
var k,max1,max2: Integer; a: array [1..n] of Integer;
begin
clrscr;
for k:=1 to n do readln(a[k]);
max1:=a[1];
for k:=2 to n do if a[k] > max1 then max1:=a[k];
max2:=a[1];
for k:=2 to n do if (a[k] > max2) and (a[k] <> max1) then max2:=a[k];
for k:=1 to n do if (a[k] = max1) or (a[k] = max2) then a[k]:=0;
for k:=1 to n do write(a[k], ' ');
readkey;
end.

3.

uses CRT;
const n = 10;
var k,s: Integer; a: array [1..n] of Integer;
begin
clrscr;
s:=0;
for k:=1 to n do
begin
readln(a[k]);
if k mod 2 = 1 then s:=s+a[k];
end;
writeln('Среднее арифметическое: ', (s/n):9:4);
readkey;
end.

4.

uses CRT;
const n = 10;
var k,s: Integer; a: array [1..n] of Integer;
begin
clrscr;
s:=0;
for k:=1 to n do
begin
readln(a[k]);
s:=s+a[k];
end;
writeln('Среднее арифметическое: ', (s/n):9:4);
readkey;
end.

4 задача.. .
var
a:array[ 1..n] of integer;
res,sum,i:integer;
begin
for i:=1 to n do
readln(a[ i ]);
sum:=0;
for i:=1 to n do
sum:=sum+a[ i ];
res:=sum/n;
writeln(res);
end.

вроде как-то так.... вместо n поставь количество элементов массива

не ругайтесь если не так)

Тебе уже дали ответы Alex и VLynx, если не ошибаюсь. Что еще надо то?