помогите дорешать 2 задачки Опции

[Vinsent90]

Возникли проблемы при решении 2х задач.

1) Задан двухмерный массив, найти наибольший и наименьший элементы и поменять их местами.
 MAXMIN.PAS ( 1.11 килобайт ) Кол-во скачиваний: 405
. Не могу поменять местами элементы массива

2) Дана символьная строка. Определить, содержит ли строка числа, если да, то вывести на экран только чётные.
 STROKA.PAS ( 431 байт ) Кол-во скачиваний: 393
.

Помогите плиз

[klem4]

Как определить, содержит ли символьная строка цифры ???

i := 1;
while (i <= length(s)) and not (s[i] in ['0'..'9']) do
  inc(i);
if i <= length(s) then
  writeln('includes numbers')
else
  writeln('not includes numbers');

Сообщение отредактировано: klem4 - 28.05.2008 20:09

[Vinsent90]

Задачи решил, всем спасибо.

Если кому нужны решения , выкладываю
 1.PAS ( 1.68 килобайт ) Кол-во скачиваний: 358

 2.PAS ( 796 байт ) Кол-во скачиваний: 361


Сообщение отредактировано: Vinsent90 - 29.05.2008 10:44