Delphi. Сортировка массива

[eluminat]

Написать программу на языке прогромирования Delphi для задания: создайте одномерный массив, заполните его случайноым образом и отсортируйте по убыванию методом"пузырька". Форма должна содержать компоненты для отображения исходного и отсортированного массива, а также компонент для ввода количества элементов.

Задана целочисленная матрица А размером NxM, Получить массив B, присвоив его к0му элементу занчения 0, если все элементы к-го столбца матрицы -нулевые, и значение в 1 противном случае (k=1,2,...,M).

не как не могу сообразить помогите кто сможет...

[maLoy*508]

а что сообразить то не можете??
объявляете массив, при помощи функции random заполняете его, и сортируете методом пузырька... метод пузырька описывается практически в любой книге на данную тематику... или поиск по форуму...

[eluminat]

сделай плс эту задачу, я посмотрю че там и как, за ранее спс.

[profi]

Начни делать т.е. сделай заполнение массива, а мы тебе с методом пузырька поможем.

[eluminat]

у мня делфи слетел((( ща качаю.......

а вот короче такая задача, решил ее сначала сделать она более простая, Определить сколько раз в троке встречаеться заданное слово(ввод с клавиатуры)

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i,n:integer;
c:char;
const m:set of char=[',','.','!','?',')','(',':',';'];
begin
s:=Edit1.text;
edit2.text:='';
n:=0;
for i:=1 to length(s) do
if (s[i]=' ') and (s[i+1] in m)  then n:=n+1;
edit2.text:=floattostr(n);
end;
end.

я тут сделал на знаки припенания а как на слова сделать не могу сообразить