Консультация № 116770
03.01.2008, 19:28
0.00 руб.
0 1 1
Написать програму что содержит процедуру формирования списка и функцию что подсчитывает количество слов в списке которые начинаются и кончаются одной и той же буквой

Обсуждение

Неизвестный
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;
Форма ответа