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

[KATYSHA]

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

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

[klem4]

Эхх, я тут посмотрел, на форуме начались дни добрых дел и выкладывания полных решений, так что держи :

про строки

uses crt;

const

   limits = [#0..#32,'.',',',':',';','!','?','"'];
type

   TWords = array[1..40] of string;
   TLogic = array[1..40] of boolean;

var
   text  : string;
   words : TWords;
   logic : TLogic;

function GetWords(s : string; var w : TWords; var L : TLogic) : byte;
var
   i,back,n : byte;
begin
   i := 1;
   n := 0;
   while(i<=length(s)) do begin
      while(i<=length(s)) and (s[i] in limits) do
       inc(i);
      if i<=length(s) then begin
         back := i;
         while(i<=length(s)) and not(s[i] in limits) do
          inc(i);
         inc(n);
         w[n] := copy(s, back, i-back);
         L[n] := not(odd(length(w[n])));
      end;
   end;

   GetWords := n;
end;

var
   i,j : byte;

begin

   clrscr;

   write('text = '); readln(text);

   j := GetWords(text, words, logic);

   for i := 1 to j do writeln(words[i],' ', logic[i]:10);

   readln;

end.