Developing.ru

Дан одномерный целочисленный массив А состоящий из N элементов (0<N<20;-10000<A<10000).Найти количество элементов,старшая и младшая цифры которых совпадают.

не могу понять как это все реализовать в коде...
Буду очень благодарен, тем кто поможет..

[syntax="delphi"]var
s1, s2: String;
i, j: Integer;
Cnt: Integer;
begin
Cnt := 0;
for i := 0 to N-1 do
for j := 0 to N-1 do
begin
s1 := IntToStr(Mass);
s2 := IntToStr(Mass[j]);
if (s1[1] = s2[1]) and (s1[Length(s1)] = s2[Length(s2)]) then inc(Cnt);
end;
end;
[/syntax]

Да уж, всего-то количествой найти... тогда так:
[syntax="delphi"]var
s1: String;
i: Integer;
Cnt: Integer;
begin
Cnt := 0;
for i := 0 to N-1 do
begin
s1 := IntToStr(Mass);
if s1[1] = s1[Length(s1)] then inc(Cnt);
end;
end;
[/syntax]

Конечно большое спасибо за ответ..
Но это одна программа...
Тоесть я ввожу последовательность..
И программа уже в ней находит числа, которые "количество элементов,старшая и младшая цифры которых совпадают. ".
И выводит допустим 13 чисел имееют такую комбинцаию цифр...

LAngel, небольшой косяк

&quot писал(а):if s1[1] = s1[Length(s1)] then inc(Cnt);

s1[1] может быть минусом, если только так

Ребят всем спасибо. Сегодня сидел с утра и вроде наконец-то сделал..