Пользователь вводит N различных чисел. Найти сколько было введено положительных чисел. Задачу решить с использованием цикла WHILE

Информация не существует сама по себе, она проявляется в информационных процессах.
Науке известно множество фактов, подтверждающих протекание информационных процессов в живой природе. Животным свойственна память: они помнят дорогу к месту своего обитания, места добывания пищи; домашние животные отличают знакомых людей от незнакомых. Многие животные обладают обостренным обонянием, несущим им ценную информацию. Конечно животных к обработке информации значительно ниже, чем у человека. Однако многие факты разумного поведения свидетельствуют об их к определенным умозаключениям.

Что делает человек с полученной информацией?

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

Также к информационным процессам относят:
- Поиск информации;
-Отбор информации;
-Кодирование информации;
-Защита информации.

Поиск информации. Поиск информации — один из важных информационных процессов.

Нам с вами очень часто приходится заниматься поиском информации: в словаре искать перевод иностранного слова, в телефонном справочнике - номер телефона, в железнодорожном расписании - время отправления поезда, в учебнике математики - нужную формулу, на схеме метро - маршрут движения, в библиотечном каталоге - сведения о нужной книге. Можно привести еще много примеров. Все это - процессы поиска информации на внешних носителях: книгах, схемах, таблицах, картотеках.
Информационные процессы, осуществляемые по определенным информационным технологиям, составляют основу информационной деятельности человека.

Компьютер является универсальным устройством для автоматизированного выполнения информационных процессов.

Задание 1:

ответ: 150

a = ((35 - 5) / 6) * (28 + ((35 - 5)/6) -3) = 5 * (25 + 5) = 150Задание 2:

ответ: a=9, b=86

b = ((7 * 11 + 4) div 10) + 6 = (81 div 10) + 6 = 86a = (86 mod 10) + 3 = 6 + 3 = 9Задание 3:

ответ: 12

a = 15 - 6 * 2 = 33>15 ? нет => c = 15 - 3 = 12Задание 4:

ответ: 173

for k:=7 to 14 do  s:=s+2*ks = 5 + 2*(7+8+9+10+11+12+13+14) = 173Задание 5А:НачалоВвод a, ba>b ?если да, то Вывод b*2если нет, то Вывод a*2КонецЗадание 5Б:var a, b: integer;begin    readln(a,b);    if a>b then writeln(b*2) else writeln(a*2);end.