<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(8,-9,9); a.Println;
Writeln('Сумма положительных ',a.Where(t->t>0).Sum);
Writeln('Количество нулей ',a.Where(t->t=0).Count)
end.
<u>Пример</u>
2 6 -6 7 0 2 3 6
Сумма положительных 26
Количество нулей 1
всего точек: 52 * 52 = 2704
т.к. изображение черно-белое (без градаций серого), имеет 2 цвета, то 2¹ = 2, одна точка — это один бит
объем памяти: 2704 * 1 = 2704 бит = 338 байт
If(a[i] div 100 = 0) and (a[i] div 10 <> 0) then s:= s+a[i];
Позволяет рисовать , заливать , искожать , стирать .