Массивы(разные)нужна большая помощь!

[ser-stereo]

1)Дан массив X[1:n]. Найти среднее арифметическое первого и последнего положительного элемента.
2)Дан массив Z[1:n]. Удалить из него путем сдвига все элементы отличные от минимального.
3)Дан массив F[1:n]. Обнулить все его элементы равные первому чётному элементу.
4)Дан массив D[1:n]. Сформировать два новых массива: первый содержит положительные элементы с чётными номерами, а второй отрицательные элементы.
5)Дан массив F[1:n]. Обнулить все его элементы равные последнему положительному элементу.
6)Дан массив D[1:n]. Вставить ноль после каждого отрицательного элемента массива.
Заранее ОГРОМНОЕ СПАСИБО ЗА ПОМОЩЬ!

[Карась]

Вам сюда

http://programmersforum.ru/forumdisplay.php?f=29

[lexus_ilia]

Я сделаю не проблема, есть только пару вопросов уточните их:
по 2-ой задаче если сдвигать элементы отличные от минимального, то сдвинутся все и минимальный станет на первое место...Или надо сдвигать от того числа которое введёт пользователь?И кстати на месте стальных поставить "0"-и или массив просто уменьшится?
и по 6-ой задаче если вставлять 0, то массив увеличивается, правильно?
ну т.е. например было " 3 4 -3 6 -4 -6 " а станет " 3 4 -3 0 6 -4 0 -6 0 " ?

[lexus_ilia]

Ну вот твоя 1-ая:

Program fa;
var
 a:array[1..100] of real;
 i,n:integer;
 b:real;
begin
 Writeln('BBeDuTe KoLu4eCTBo elemeHtoB maccuBa');
 Readln(n);
 Writeln('BBeDute eLeMeHTbl MaccuBa');
 for i:=1 to n do
 begin
  Write('A[' ,i, ']=');
  Readln(a[i]);
 end;
 i:=1;
 While a[i]<=0 do
  i:=i+1;
 b:=a[i];
 i:=n;
 While a[i]<=0 do
  i:=i-1;
 b:=(b+a[i])/2;
 Writeln('CPeDHee apuFMeTu4eCkoe =' ,b:12:5);
 Readln;
end.

[lexus_ilia]

Вот твоя 3-я задача:

Program fa;
var
 a:array[1..100] of integer;
 i,n,b:integer;
begin
 Writeln('BBeDuTe KoLu4eCTBo elemeHtoB maccuBa');
 Readln(n);
 Writeln('BBeDute eLeMeHTbl MaccuBa');
 for i:=1 to n do
 begin
  Write('A[' ,i, ']=');
  Readln(a[i]);
 end;
 i:=1;
 While (a[i] mod 2)=5 do
 begin
  Writeln('a[' ,i, ']=' ,a[i]);
  i:=i+1;
 end;
 b:=a[i];
 For i:=1 to n do
  if a[i]=b then
   a[i]:=0;
 Writeln('noLy4uBLLIeuc9 MaccuB');
 for i:=1 to n do
  Write(a[i]:5);
 Readln;
end.

[lexus_ilia]

Вот твоя 4-ая

Program fa;
var
 a,c,d:array[1..100] of integer;
 i,l,j,n,b,k:integer;
begin
 Writeln('BBeDuTe KoLu4eCTBo elemeHtoB maccuBa');
 Readln(n);
 Writeln('BBeDute eLeMeHTbl MaccuBa');
 for i:=1 to n do
 begin
  Write('A[' ,i, ']=');
  Readln(a[i]);
 end;
 k:=1;
 l:=1;
 i:=2;
 b:=n div 2;
 for j:=1 to b do
 begin
  if a[i]>0 then
  begin
   c[k]:=a[i];
   k:=k+1;
  end;
  i:=i+2;
 end;
 for i:=1 to n do
  if a[i]<=0 then
  begin
   d[l]:=a[i];
   l:=l+1;
  end;
 Writeln('MaccuB kotopblu bblL');
 for i:=1 to n do
  Write(a[i]:5);
 n:=k;
 Writeln;
 Writeln('MaccuB c 4eTHblMu homepamu u nolo}l{uTeLbHblMu elemeHTaMu');
 for k:=1 to n-1 do
  Write(c[k]:5);
 Writeln;
 Writeln('MaccuB c He4eTHblMu HomepaMu');
 k:=l;
 for l:=1 to k-1 do
  Write(d[l]:5);
 Readln;
end.

[lexus_ilia]

А вот и 5-ая

Program fa;
var
 a,c,d:array[1..100] of integer;
 i,l,j,n,b,k:integer;
begin
 Writeln('BBeDuTe KoLu4eCTBo elemeHtoB maccuBa');
 Readln(n);
 Writeln('BBeDute eLeMeHTbl MaccuBa');
 for i:=1 to n do
 begin
  Write('A[' ,i, ']=');
  Readln(a[i]);
 end;
 i:=n;
 While a[i]<=0 do
  i:=i-1;
 b:=a[i];
 for i:=1 to n do
  if a[i]=b then
   a[i]:=0;
 Writeln('noLy4uBLLieuc9 MaccuB');
 for i:=1 to n do
  Write(a[i]:5);
 Readln;
end.

[ser-stereo]

во второй задаче значения равные минимальному будут вначале а остальное всё сдвиг за ним.
в 6-ой задаче правильно, массив должен увеличиться.

[ser-stereo]

напиши пожалуйста остальные 2 задачки )

[lexus_ilia]

Напиши мне пример для 2-ой, а то я что-то не могу понять, а 6-ую...высплюсь, после пар напишу (если никто раньше не напишет)