Developing.ru

4. procedure zamena;
var i, j, buff: integer;
begin
For i:=1 to n do
begin
buff:=a[i, m-1];
a[i, m-1]:=a[i, m];
a[i, m]:=buff;
end;
end;
_______________
должна сработать...

ПАсибо большое!!!

1. Раздел "Алгоритмы", тема "Разбиение строки на слова".
Количество цифр -
for i:=1 to length(s) do
if (s>='0') and (s<='9') then inc(count);
2. Раздел "Алгоритмы", тема "Нахождение максимума".

Здравствуйте! Нужна ваша помощь...решить 2 задачи...очень надо скоро сессия...
АДАНИЕ 1:
ЭТО УСЛОВИЕ : Текст ввести с помощью компонента Memo.
Вывести слова исходного текста в алфавитном порядке.

А ВОТ И САМО ЗАДАНИЕ: Дан текст. Сколько слов в тексте? Сколько цифр в тексте?

ЗАДАНИЕ 2:
Дан двумерный массив размером n*m.

1. Заменить максимальный элемент каждого столбца нулем

2. Вставить после всех строк, содержащих максимальный по модулю элемент, первую строку.

3. Удалить из него строку и столбец, на перекрестье которых находится максимальный по модулю элемент..

4. Поменять местами последний и предпоследний столбцы.
Помогите пожалуйста!!!Заранее благодарю!