Задача на формирование массива, сформировать массив из элементов другого Опции

[Гость_BoBaH]

Помогите решить:
Дан массив х(n) и натуральное число М (M<N), сформировать массив Y из тех элементов массива Х которые больше суммы первых М элементов массива Х

[Atos]

var Sum:TElem;
      i,j,n1:word;
      Y:^array[1..1] of TElem;

begin
  Sum:=0;
  n1:=0;
  j:=0;
  for i:=1 to M do Sum:=Sum+X[ i ];
  for i:=1 to N do if X[ i ]>Sum then inc(n1);
  getmem(Y,n1*sizeof(TElem));
  for i:=1 to N do if X[ i ]>Sum then
    begin
    inc(j);
    Y^[j]:=X[ i ];
    end;
end.

Нам бы такие проблемы...

Сообщение отредактировано: volvo - 29.09.2006 13:20