Достоверность, полнота, точность, актуальность, полезность, ценность, своевременность, понятность, доступность, краткость.
Const
n=10;
var
a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
Write('Исходный массив: ');
k:=0;
for i:=1 to n do
begin
a[i]:=Random(51)-25;
Write(a[i],' ');
if (a[i]>0) and (a[i] mod 2=0) then Inc(k)
end;
Writeln;
Writeln('Количество четных положительных чисел равно ',k)
end.
Контрольный прогон
Исходный массив: 6 -13 -13 -19 -18 -10 -18 8 -17 -4
Количество четных положительных чисел равно 2
Истинный цвет - каждый пиксель весит 24 бита
Объем = кол-во пикселей* глубину цвета=20*20*24 бит=9600 бит=1200 байт=приблизит. 1,17Кбайт
Пуск-Панель управления-Мышь- Свойства я думаю так
<span>фрегат & эсминец 500
фрегат 2000
эсминец 2500</span>
Формула включений исключений
<span>фрегат | эсминец = </span>фрегат + эсминец - (фрегат & эсминец) = 2500+2000-500 = 4000