Developing.ru

Помогите составить программу для 3х заданий. В среде Турбо Паскаль - Программированные задач с использованием файлов
1)Дано файл целых чисел f . Определите количество положительных и отрицательных чисел (+-).

2)Дано файл целых чисел f . Определите , сколько раз в нем повторяется максимальное значение.

3)Дано символьный файл , который содержит произвольный текст длиной больше 20 слов . Слова в тексте разделены пропусками и разделительными знаками ("." , "," , "!" , "?"). Получить три слова , которые чаще всех встречаются и число их встреч . Предусматривается что длина слова не определена.

Пожалуйста если можно то полный код программы выложите , заранее спасибо.

Стучите в асю 11один11-5шесть5шесть, обсудим.

чёто не понял номер аськи , и платно\бесплатно?

95% сообщений типа "стучите в аську" подразумевает платное решение.
Для бесплатного - задавайте конкретные вопросы, что не понятно. В настоящий момент за вашим "Помогите составить программу" скрывается "сделайте все за меня, желательно нахаляву".
Кстати, предупреждение за неинформативное название темы. Читайте правила.
По самим задачам:
1. repeat
readln(f,x);
if x<0 then inc(otricat) else if x>0 then inc(polojit);
until eof(f);
2. Найти максимум (см. раздел Алгоритмы), пройтись еще раз по файлу, если очередной элемент равен максимуму - увеличить счетчик.
3. var A: array[1..100] of record
word: string
count: integer;
end;
Разбиваем текст на слова (см. раздел Алгоритмы), получаем очередное слово, пробегаемся по нашему массиву: если в нем есть такое слово, увеличиваем счетчик таких слов на единицу, если нет - добавляем его в конец массива и выставляем его счетчик на 1. Потом упорядочиваем массив по счетчику и выводим три слова с максимальными счетчиками.
Если это непонятно - стучитесь в аську. Но готовая программа - уже за деньги.

Спасибо за помощь , я уже купил данную работу , извиняюсь за не корректно составленную тему.