Паскаль. Операции со строками и обработка массивов.

[Pascaler]

1: Дана текстовая строка, вывести на экран все цифры из этой текстовой строки. (например ab2cd41af546g - чтоб выводило 2 41 546)
2: В двумерном массиве чисел найти строки с максимальным и минимальным значением приращения(разности между соседними значениями).
Помогите решить пжл ... Буду очень благодарен....

[SERG1980]

1.

uses crt;
var s1,s2:string;
     i:integer;
BEGIN
 clrscr;
 s1:='';
 s2:='';
 writeln('vvedite stroky!');
 readln(s1);
 for i:=1 to Length(s1) do
  if s1[i] in ['0'..'9'] then s2:=s2+s1[i];
 writeln(s2);
 readln;
END.

[Grag]

И что будет в результате? Одна строка из цифр без разделения пробелами

Pascaler, обращайся, сделаю...
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Pascaler]

Спасибо SERG1980
Grag я исправил пробелы...
Вторую задачу посмотрите плиз

[Stilet]

Вторая:

  var a:array[1..5,1..5] of integer;
  max:integer;
  q,w,dx:integer;
begin
 for q:=1 to 5 do begin
  for w:=1 to 5 do begin
   a[q,w]:=random(200);
   if (w>1)and(abs(a[q,w]-a[q,w-1])>max) then max:=abs(a[q,w]-a[q,w-1]);
   write(a[q,w]:5);
  end;
  writeln;
 end;
 writeln;write(max);
  { TODO -oUser -cConsole Main : Insert code here }
 readln;

end.

Так пойдет?

[SERG1980]

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

И что будет в результате? Одна строка из цифр без разделения пробелами

не думаю что это сложно доработать
А автор пусть пожалуйста точнее пишет задание
Уважаемый Grag, а вы что и правда бы такие задачи за деньги сделали???

[Grag]

Нет конечно... Но, хоцца, чтобы они и сами ручки приложили к решению своих задач... и голову тож...

[Chudo4258]

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

не думаю что это сложно доработать
А автор пусть пожалуйста точнее пишет задание
Уважаемый Grag, а вы что и правда бы такие задачи за деньги сделали???

А я вот именно такие задачи и решаю за деньги, при чем беру за них 40-50 руб., это потому что не хочешь элементарное делать плати деньги.
А вот за сложные еще подумать можно склько денег просить, т.к. по себе знаю, что иногда зададут такую задачку, что реально никаких идей по ее решению нет.

PS: и вот только не надо говорить, что кто-то на ком-то наживается...

[Grag]

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

Уважаемый Grag, а вы что и правда бы такие задачи за деньги сделали???

А вообще-то, деньги нужно брать не за то, что ты делаешь руками, а за то, что ты знаешь как это делать, т.е. за свои знания и опыт...
С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru
или вот по этим ссылкам:
http://www.autsorser.ru/index.php?action=rsm&user=59
http://www.autsorser.ru/index.php?action=prtfl&user=59

[Pascaler]

Chudo4258 и Grag может вы и давно изучаете паскаль, но я в школе учусь(профильном), и второй год изучаю только Паскаль к сожалению

Stilet в твоей программе вместо рандома мне самому надо ввести матрицу, можно вместо 5х5 и 3х3 взять ... Я сам написал программу , но что то не пашет. Если не трудно напиши пожалуйста