2 Мбайт
но могу ошибаться ((
Орган зрения ,<span>с </span>помощью<span> глаз люди различают цвета, </span>воспринимают<span> зрительную</span>информацию<span>, к которой </span>относятся<span> и текстовая, и числовая, и графическая; ... Практически около 90% </span>информации человек<span> получает при помощи органов зрения (</span>визуальный<span>)</span>
//PascalABC.NET v3.3 1633
const n = 15;
var arr: array [1..n] of integer;
begin
for var i:=1 to n do
arr[i]:=random(-5,5);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to n do
if arr[i] > 0 then
count += 1;
writeln('Количество положительных элементов: '+count);
end.
если честно то можно но не все