03.01.2008, 19:49
общий
это ответ
Здравствуйте, Морозко Александр Викторович!
Не знаю, в каком виде дан список. Буду считать, что в массиве из 10 элементов. Для этого случая код в приложении.
Для своего случая меняйте верхний предел цикла (можете брать входным параметром функции). Если что, пишите на e-mail.
____________________________
Tantum possumus, quantum scimus
Приложение:
function(count(a:array of string):integer;var i,c:integer;BEGINc:=0;for i:=1 to 10 do if a[i][1]=a[i][length(a[i])] then c:=c+1;count:=c;END;