Помогите решить задачи в Делфи

[Alex Dreamer]

задали пару задач для исправления аттестации... сам не могу, помогите пожалуйста...

1. Даны натуральное число n, символы S1,...,Sn. Известно, что среди символов есть хотя бы один, отличный от пробела. Удалить из последовательности S1,...,Sn группы пробелов, которыми последовательность начинается и заканчивается, а также заменить каждую внутреннюю группу пробелов на один

2. · Найти значения наибольшего отрицательного и наименьшего положительного элементов

· В матрице все отрицательные элементы в строках, которые следуют за строкой, содержащей наибольший элемент, увеличить на 10

· Найти номера строк матрицы, сумма цифр элементов которых делится на 3

[Ky3Heu,]

1. Сначала S1:=Trim(S1); \\ Trim Удаляет начальные и конечные пробелы в строке.

Любая строка - это одномерный массив элементов. Поэтому:
var i,j:Integer;
s,n_s:String;
begin
s:=Edit1.Text; //S1,..,Sn-в твоем случае
For i:=1 to length(s) do
begin
if (s[i]=#32) and (s[i+1]=#32) then //#32 - это символ пробела
n_s:=n_s
else n_s:=n_s+s[i];
end;
Edit2.Text:=n_s;
end;

В таком духе..... А по второй задаче ответ есть в этом разделе.. Помоему отвечали Оксаночке.. Там правда массив одномерный, но принцип тот же. Тока у тебя 2 цикла - по строкам и по столбцам. Потом запоминаешь в переменную № строки, а дальше легко... Думай а я спать....

[Alex Dreamer]

Спасибо большое!
по второй здаче не могу найти эту тему(((

[IT-man]

//Найти значения наибольшего отрицательного и наименьшего положительного элементов
//В матрице все отрицательные элементы в строках, которые следуют за строкой, 
//содержащей наибольший элемент, увеличить на 10
//Найти номера строк матрицы, сумма цифр элементов которых делится на 3



begin
{ввод размерности}
{ввод матрицы}
{вывод исходной матрицы}
bo:=-9999;
mp:=9999;
max:=-65000;
im:=1;
for i:=1 to n do
 s[i]:=0;
for i:=1 to n do
for j:=1 to n do begin
if (a[i,j]<0) and (a[i,j]>bo) then bo:=a[i,j];//Найти значения наибольшего отрицательного
if (a[i,j]>0) and (a[i,j]<mp) then mp:=a[i,j];//Найти значения наименьшего положительного 
if a[i,j]>max then begin
max:=a[i,j];
im:=i; // строка,содержащая наибольший элемент
end;
s[i]:=s[i]+a[i,j];
end;
{---тут должен быть вывод наибольшего отрицательного и наименьшего положительного}
if im<n-1 then begin
for i:= im+1 to n do
for j:=1 to n do
if (a[i,j]<0) then a[i,j]:=a[i,j]+10;//отрицательные элементы увеличить на 10
end;
for i:= 1 to n do
if s[i] mod 3 =0 then {вывод i туда куда надо}
{вывод получившейся матрицы}
end.
// все что в {} предлагаю написать самому! ибо лень! и не забудьте переменные описать

[cocojambo]

Дело в том, что "помощь" подразумевает наличие вопросов, и описание проблем, которые самостоятельно не получается преодолеть.
Не красиво называть тему "Помогите...", если под ней подразумевается "Сделайте, а то мне лень...".