несколько задач паскаля

[revolteck]

1.Дана строка.Подсчитать количество букв k в последнем слове
2.Дан текст на русском языке.Напечатать в алфавитном порядке все звонкие буквы, которые входят более чем в одно слово.
___________________________________ ________________
1.Написать модуль, которые запрашивает количество столбцов и строк двумерного массива и подсчитывает сумму заданной строки и заданного столбца.
2.Написать модуль, который выводит номер столбца в котором наибольшее количество отрицательных элементов.
___________________________________ _________________
Составьте программу, упорядочивающую по убыванию элементы каждой строки матрицы размером m*n. (размер матрицы вводится с клавиатуры, но не более 10).массив заполнить случайными целыми числами от 0 до 20
___________________________________ ________________________
Буду очень благодарен если кто небудь решить=)

[BDA]

Последняя:

Uses CRT;
var
a:array[1..10,1..10] of integer;
m,n,i,j,k,tmp:integer;
BEGIN
writeln('Input size of matrix:');
readln(m,n);
randomize;
for i:=1 to m do
	for j:=1 to n do
		a[i,j]:=random(21);
writeln('Source matrix');
for i:=1 to m do
begin
	for j:=1 to n do
		write(a[i,j]:3);
	writeln;
end;
for i:=1 to m do
	for j:=1 to n-1 do
		for k:=j+1 to n do
		if a[i,j]<a[i,k] then
		begin
			tmp:=a[i,j];
			a[i,j]:=a[i,k];
			a[i,k]:=tmp;		
		end;
writeln('Sorted matrix');
for i:=1 to m do
begin
	for j:=1 to n do
		write(a[i,j]:3);
	writeln;
end;
readln;
END.

[Serge_Bliznykov]

я против того, чтобы все задачи ГУРТОМ вывались для решения.
Большинство из задач уже неоднократно были решены (значит поиском пользоваться тоже лень).
Ну ладно, ну хотя бы какие-то попытки самостоятельно решить их были...
Нет, форум рассматривается как автоматический решатель задач.

поэтому я ЗАКРЫВАЮ ТЕМУ