Задача 3. Имеется массив А из N произвольных чисел – А (N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, решающую задачу  в соответствии с вариантом. Вариант 10. Найти сумму и количество всех четных положительных элементов. Например, если А={2, 4, -3, 0, -2, 6}, результат: 12 и 4 (2,4,0,6).

http://onlinedisk.ru/ - хороший файлообменник. Без рекламы, без дополнительных переходов. 

Ограничение - файлы не более 100 Мб, не более 60 дней. 

Создадим в Lazarus консольное приложение и скопируем следующий код:

Если у Вас есть аська №7 (а не какой-нибудь QIP) , то база сообщений расположена по адресу %appdata%\icq\ номер аськи \ messages.qdb - это база в формате sqlite. До версии 7, у 6.5 например, база была в формате базы access и называлась messages.mdb. Но структура баз практически одинакова - в таблице Messages , в столбце subject - незашифрованные сообщения .

Кстати говоря - данный материал публикуется для использования исключительно в мирных целях:

Например, Вы забыли свой пароль от аськи, а в той переписке был очень важный номер телефона.

Создайте новый проект, киньте на форму компоненты, указанные на рисунке.

Привяжем компоненты друг к другу: транзакцию и запрос к базе, а сетку к запросу.

Для кнопки напишем такую подпрограмму:

 procedure TForm1.Button1Click(Sender: TObject);

Следующая задача, которую мы поставим перед собой-это написание программы, позволяющей произвести (из командной строки) скрытый запуск другой программы. (Есть программа HideExe , но она shareware, поэтому даже знакомится с ней не стал. Сам напишу)

В Windows есть чудесная утилита RunDll32.exe - она позволяет воспользоваться из командной строки подпрограммой имеющейся в dll- библиотеке.

Например rundll32 shell32,ShellAboutA  - вывести информацию о системе

Здесь shell32 - имя библиотеки, ShellAboutA- имя подпрограммы

Создадим свою библиотеку hide.dll

В Lazarus в меню выбираем Проект -> Создать проект, выбираем Библиотека

Скопируйте следующий текст: