Задачи. Turbo Pascal 7.0

     Вводится последовательность целых чисел. 0 - конец последовательности. Найти два наименьших числа.
     Скачать (1 kb)

     Вводится последовательность целых чисел. 0 - конец последовательности. Определить содержит ли последовательность хотя бы два равных соседних числа (a[i]=a[i+1]).
     Скачать (1 kb)

     Вводится последовательность целых чисел. 0 - конец последовательности. Определить сколько раз последовательность меняет знак.
     Скачать (1 kb)

     Найти сумму N первых членов ряда y=1+x/2+x^2/3+x^3/4+... при x - любое число.
     Скачать (1 kb)

     Дана матрица размерностью М*N. Найти минимальное значение среди четных элементов каждой строки с записью в оперативную память. Строку с минимальным элементом (считать что она единственная) - удалить.
     Скачать (1 kb)

     Дана матрица размерностью А*В. Обнулить весь столбец, в котором есть хоть один четный по значению элемент.
     Скачать (1 kb)

     Задана матрица размерностью 8*8. Аналогично шахматной доске заполнить в заданной матрице белый поля - 0, черные - 1.
     Скачать (1 kb)

     Каждая из N библиотек района составляет заявку на приобретение книг. Заявка содержит перечень книг, состоящий из не более 20 наименований. Каждая библиотека в каждой строке заявки указывает название книги, фамилию автора и количество экземпляров. Определить суммарный спрос на каждую из указанных книг. И напечатать общий список книг в порядке убывания спроса.
     Скачать (1 kb)

     Опросили 20 подписчиков. Каждый из них назвал 3 любимые газеты. Напечатать пронумерованный список первых 10 наиболее популярных газет, расположив названия газет в списке в порядке уменьшения числа, отданных за них голосов. Предусмотреть, что каждый из опрашиваемых должен назвать 3 разные газеты.
     Скачать (1 kb)