Информатику можно назвать наукой о компьютерной технике.
Информатика как наука занимается созданием информационного обеспечения того или иного объекта на базе компьютерных информационных систем.
Я не знаю через массив или как это писать, поэтому напишу простейший вариант
program n_pologitelnih;
uses crt;
var i,n,k,a:integer;
begin
clrscr;
write('Введи N=>> ');
readln(n);
for i:=1 to n do
begin
write('Введи число');
readln(a);
if a>0 then k:=k+1;
end;
write('Положительных чисел из ',n,' введенных - ',k);
readln;
end.
Посредством SQL запросов, как и в обольшенсве баз данных
=700*650*16 /(3*4)≈666 666 dpi на квадратный дюйм