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

[Serge_Bliznykov]

по 2-й задаче. её немного неадекватный человек состявлял (или, как сейчас говорят - альтернативно одарённый :-) )

2)Дан массив Z[1:n]. Удалить из него путем сдвига все элементы отличные от минимального.

в результате в массиве остануться ТОЛЬКО элементы равные минимальному. Причём они все будут идти с начала массива
типа так:
исходный массив: 10 20 5 21 8 10 5 27 82 5 77
результирующий массив: 5 5 5

[ser-stereo]

вроде так! тоько нужна программа...

[ser-stereo]

еще одна задачка пришла... Помогите плиз) Вычислить массив R[1:n] по формуле r[i]=0,8 cos (4ax - ih). {i=1,n и x, h, a - заданы} потом из него удалить все отрицательные элементы, расположенные до минимального и в полученном массиве R[1:k] где k число элементов, оставшихся после удаления, подсчитать среднее арифметическое элементов, расположенные до минимального.

[lexus_ilia]

Твоя 6-ая:

Program fa;
var
 a:array[1..100] of integer;
 i,n,min,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;
 min:=a[1];
 for i:=2 to n do
  if a[i]<min then
   min:=a[i];
 k:=0;
 for i:=1 to n do
  if a[i]=min then
   inc(k);
 for i:=1 to k do
  a[i]:=min;
 Writeln('noLy4uBLLieuc9 MaccuB');
 for i:=1 to k do
  Write(a[i]:5);
 Readln;
end.