Работа с массивами в Паскале

[Arragorn]

Прошу помощи в решении задач:
1). Написать программу, кот. по данной последовательности символов s1, s2,...s99 позволяет выяснить/ явл. ли последоватльность палиндромом
2). в массиве А[1..10] находится 10 целых чисел. Определить, имеются ли среди них хотя бы одно
а) четное число;
б) нечетное число.
3). На плоскости даны 700 точек, эти точки попарно соединены отрезками. Написать прогу вычисления длины наибольшего из отрезков. Считать, что координаты i-й точки суть xi, yi и что задана последовательность действительных чисел x1, y1, x2, y2,...x700,y700.
Заранее спасибо)))

[Stilet]

явл. ли последоватльность палиндромом

Палиндромы уже обсуждались с примерами

2).

var a:array[1..10] of integer;i;byte;
begin
 for i:=1 to 10 do begin
  if a[i] mod 2=0 then begin Write('Четное есть');exit;end;
 end;

Для нечетного вместо = символ <>

[Arragorn]

ты гений,спасибо что помог! а можешь еще решить? пожалуйста =)

[IT-man]

Я могу-- стучись аська под ником! недорого!

[Arragorn]

аськи нет, реши последнюю если сможешь

[murmuno]

program pr11;
const
   n = 3;
var
   i,j: integer;
   dtek: single;
   a: array[1..n,1..2] of integer;
begin
   read(a[1,1]);
   read(a[1,2]);
   for i:= 2 to n do begin
     read(a[i,1]);
     read(a[i,2]);
     for j:= i-1 downto 1 do begin
       dtek:= sqrt( sqr(a[i,1]-a[j,1]) + sqr(a[i,2]-a[j,2]) );
       end;
     end;
   readln;
   readln;
end.

Сравнение легко сделаешь во вложенном массиве, создав новую переменную с помощью условного оператора) Не забудь значение n изменить на 700.
Программа вроде нормально работает.

[Arragorn]

ооо...спасибо огромное,выручил!