Допуск к экзамену =(

[Jiuc]

Пытаюсь допуститься к экзамену, преподу нужны задачи, прога турбопаскаль 7.0
всего 18 заданий, некоторые смог сам, над некоторыми сейчас усиленно тружусь и с некоторыми решил поросить помощи у вас
например:
Matrix41. Дана целочисленная матрица размера M x N. Найти номер первого из её столбцов, содержащих максимальное количество одинаковых элементов.
З.ы.: занимаемся по задачнику М.Э.Абрамян Programming Taskbook Электронный задачник по программированию версия 4.5 если у кого-нибудь есть решения, буду очень признателен..

[Тупой]

вот решения

[Jiuc]

Сообщение от Тупой

вот решения

три раза всё просмотрел.. Абрамяна не нашёл

[como]

Сообщение от Jiuc

Matrix41. Дана целочисленная матрица размера M x N. Найти номер первого из её столбцов, содержащих максимальное количество одинаковых элементов.

Сначала подумай, как найти количество одинаковых элементов в столбце.

[Doc]

Сначала подумай, как найти количество одинаковых элементов в столбце.

Можно попробовать сначала отсортировать столбец, а потом в цикле прогнать на выявление переходов (т.е. когда меняются последовательности одинаковых элементов) с занесением длин последовательностей одинаковых элементов в массив, затем найти в этом массиве максимальный элемент - он и будет максимальным количеством одинаковых элементов в столбце, и т.д. для каждого столбца.
P.S.: алгоритм может и не слишком хороший, но первое, что пришло в голову, т.ч. прошу если что не пинать.

[Jiuc]

Ребят помогите пожалуйста с этим..
тема последовательности или Series
Дано целое число N и набор из N целых чисел, содержащий по крайней мере два нуля. Вывести сумму чисел из данного набора, расположенных между первым и последним нулём (если первый и последний нули идут подряд, то вывести 0).
Просто даже не представляю, как это делается Искал литературу по данному вопросу или примеры в инете и в книгах - не нашёл
Если напишете исходник, есть возможность отблагодарить материально

[como]

Сообщение от Jiuc

Дано целое число N и набор из N целых чисел, содержащий по крайней мере два нуля. Вывести сумму чисел из данного набора, расположенных между первым и последним нулём (если первый и последний нули идут подряд, то вывести 0

Примитив. Подумай как бы ты это сделал без компьютера, руками, чтобы понять алгоритм. Вот тебе последовательность чисел, чтобы практиковаться: 4 8 0 1 8 4 9 2 4 7 0 5 2 1

[Jiuc]

Сообщение от como

Примитив. Подумай как бы ты это сделал без компьютера, руками, чтобы понять алгоритм. Вот тебе последовательность чисел, чтобы практиковаться: 4 8 0 1 8 4 9 2 4 7 0 5 2 1

я знаю до этого момента

program Two;
   var n:integer;
begin
readln(n);
writeln.....

-||-

end.

А как сделать, чтоб выводилось именно n-ное количество целых чисел?