двумерный массив Опции

[KATYSHA]

Помогите плиз,вообще не в зуб ногой ...............я скоро повешусь.Помогите пожалуйста решить задачу: дана матрица вещественных чисел.заменить максимальный элемент в каждой строке суммой положительных элементов,а минимальный-суммой отрицательных.

Заранеее ОГРОМНОЕ СПАСИБО

[volvo]

Дан файл вещественных чисел. Если среднее арифметическое его компонент превышает значение максимального эл-та файла,удалить из него все отрицательные эл-ты,в противном случае- удалить все положительные.

Алгоритм примерно такой:

var
  arr: array[1000] of real;
...
Reset(f);
max := -10000;
aver := 0; n := 0;
while not eof(f) do begin
  read(f, X);
  if X > max then max := X;
  aver := aver + X;
  inc(n); arr[n] := X;
end;
aver := aver / filesize(f);

i := 1;
while i <= n do begin
  if (arr[i] < 0) = (aver < max) then begin
    for j := i to pred(n) do arr[j] := arr[j+1]
    dec(n);
  end
  else inc(i);
end;

reset(f);
for i := 1 to n do write(f, arr[i]);
truncate(f);
close(f);