Паскаль

[Stani4nik]

Здоров Ребята!
Тут проблема нарисовалась ,помогите!!!

Задача: Дан текст-строка, состоящия из строчных латинских букв, цифр и знаков. Получит новый текст, состоящий только из БУКВ.

[Sazary]

newstring := '';
for i:=1 to length(string) do
 if string[i] in ['A'..'Z','a'..'z'] then
  newstring := newstring + string[i];

[Stani4nik]

Сама личинка???

[Sazary]

Сообщение от Stani4nik

Сама личинка???

Слово-то какое выбрали.. ) Да, основная часть.

[Stani4nik]

:-)
Задача 2: Ну мужики последняя.

Дана матрица К(nxn).Написать программу, которая упорядочивает столбцы этой матрицы по возрастанию.
ЗАРАНЕЕ Благодарю!!!

[Sazary]

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

for i:=1 to n do
 for j:=1 to n-1 do
  begin
  t := j;
  for k:=j+1 to n do
   if A[i,k]<A[i,t] then t:=k;
  tmp := A[i,t];
  A[i,t] := A[i,j];
  A[i,j] := tmp;
  end;

[Kostia]

столбцы так столбцы...

const n=5;
var
  m: array[1..n,1..n] of integer;
  i,k,j,b: integer;
begin
  cls;
  randomize;
//заполнение и вывод массива на экран
  for i:=1 to n do
  begin
    for k:=1 to n do
    begin
      m[i,k]:=10+random(90);
      write(m[i,k],' ');
    end;
    writeln();
  end;
//сортировка
  for i:=1 to n do
    for k:=1 to n-1 do
      if m[1,k]>=m[1,k+1] then
      for j:=1 to n do
      begin
        b:=m[j,k];
        m[j,k]:=m[j,k+1];
        m[j,k+1]:=b;
      end;
//вывод отсортированного массива
  writeln();
  for i:=1 to n do
  begin
    for k:=1 to n do
      write(m[i,k],' ');
    writeln();
  end;
end.

мда, немного не так задачу понял. впрочем сталось только в середину моего кода вставить код Sazary и заменить имена переменных.

[Stani4nik]

Большое ЧЕЛОВЕЧЕСКОЕ спасибо Парни!!!