Помогите решить 3-и задачки. Ибо мне не допуск до сессии :(

[kiko]

Помогите пожалуйста решить 3-и задачки...
Ибо мне грозит не допуск до сессии.

1-я задача.
тема: Обработка Матриц.
A (n,m) Вычеслить и запомнить суммы и числа элементов каждой строки матрицы. Результаты вывести в виде двух столцов. N <= 20; M <= 15.
<= - меньше-равно

2-я задача.
тема: Обработка Символьных данных.
Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.

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


Не подумайте, что я такой вот наглый . Просто до сессии остались считанные дни, а задачи нужно сдать. Я просто не успеваю, дали 7-ь заданий, четыре из них в процесе выполнения, а 3-и прошу у вас помощи.

[Sazary]

Третья:

uses crt;
const mn=['0'..'9'];
var
s,s2 :string;
i,k,len : integer;
begin
clrscr;
writeln('Enter string: ');
readln(s);
len := length(s);
k := 1;
s2 := '';
for i:=1 to len do
  if not (s[i] in mn) then
         begin
         s2 := s2 + s[i];
         inc(k);
         end;
writeln('Result:');
writeln(s2);
readln;
end.

[Sazary]

Вторая:

uses crt;
var
s,s2 : string;
i,k,len : integer;
begin
clrscr;
writeln('Enter string:');
readln(s);
writeln('----------');

len := length(s);
i := 1;
while i <= len do
  begin
   if s[i] <> ' ' then
     begin
     k := i;
     s2 := '';
     while (s[i] <> ' ') and (i<=len) do
       begin
       s2 := s2 + s[i];
       inc(i);
       end;
     if s[i-1] = s[k] then
      writeln(s2);
     end;
  inc(i);
  end;
readln;
end.

Пример ввода:

Enter string:
affa dfdf eir fdkj   fsdf kf   fds
----------
affa
fsdf

[capta1n]

2) Отзыв не забудь:

program capta1n;
var
 string1 : string;
 string2 : string[16];
 k : byte;
begin

  writeln ('input string: ');
  readln (string1);
  writeln;

  string1:=string1+' ';
  while string1<>'' do
  begin
    k:=pos(' ',string1);
    string2:=copy(string1,1,k-1);
    if string2[1]=string1[length(string2)] then write (string2,'; ');
    delete (string1,1,k);
  end;


  readln
end.

[kiko]

Выражаю огромное спасибо: Sazary, capta1n.

Спасибо! выручили!

[Sazary]

Первая
Не понял, что значит

суммы и числа элементов

Ниже код, вычисляющий суммы элементов каждой строки.
Уже есть массив (b) для этих самых "чисел элементов".

uses crt;
var
m,n,i,j : integer;
matr : array[1..20,1..15] of integer;
a,b : array[1..15] of integer;

begin
clrscr;
write('Enter n: ');
readln(n);
write('Enter m: ');
readln(m);
randomize;
for i:=1 to n do
  begin
  for j:=1 to m do
    begin
    matr[i,j] := random(20)-5;
    write(matr[i,j]:5);
    end;
  writeln;
  end;
writeln;
{-----}
for i:=1 to n do
  begin
  a[i] := 0;
  b[i] := 0;
  for j:=1 to m do
    begin
    a[i] := a[i] + matr[i,j];
    end;
  end;
{-----}
for i:=1 to n do
  writeln('Summa stroki ',i,'= ',a[i]:5);

readln;
end.

[capta1n]

Первая программа:

program capta1n;
const
 n = 5;
 m = 4;
var
 A : array [1..n,1..m] of integer;
 sum : array [1..n] of integer;
 i,k : byte;
begin

  Randomize;

  writeln ('Vash massiv: ');
  for i:=1 to n do
  begin
    for k:=1 to m do
    begin
      A[i,k]:=random(10);
      write (A[i,k],'|')
    end;
    writeln
  end;
  writeln;

  for i:=1 to n do
  begin
    sum[i]:=0;
    for k:=1 to m do
    begin
      writeln (A[i,k]);
      sum[i]:=sum[i]+A[i,k]
    end
  end;

  writeln('----------------');
  for i:=1 to n do writeln(sum[i]);
  readln

end.

[Sazary]

capta1n Хм.. И в чем отличие от моей?
+ строчка writeln (A[i,k]); во втором главном цикле, как я понимаю, лишняя?

[capta1n]

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