Массив

[Анэт]

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

1) Дан массив целых чисел(положительных и отрицательных). Определить кол-во элементов, значение которых меньше среднего арифметического минимального и максимального элементов массива и напечатать их номера!!!!

2) Дан массив. Переписать его второй,четветртый и т.д. элементы в другой массив такого же размера, расположив элементы подряд с начала массива!!!!

[IT-man]

язык?
паскаль/delphi Стучи в аську!Сделаю! Недорого!

[Анатоль]

Вот бесплатно 2ая прога.
program xren;
var
M1,M2 : array[1..100] of longint;
i,j,n,k : longint;
begin
k := 0;
read(n);
for i := 1 to n do
read(M1[i]);
for i := 1 to n do
if (i mod 2) = 0 then
begin
inc(k);
M2[k] := M1[i];
end;
for i := 1 to k do
write(M2[k]);
end.