Program prog;
uses crt;
var a: array [1..10] of integer;
i,k: integer;
begin
clrscr;
randomize;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
writeln ('a[',i,'] = ', a[i]);
if a[i]>0 then inc(k);
end;
writeln;
write('K = ', k);
end.
Такое изображение займет
57 * 57 = 3249 бита
3249 / 8 = 406,125 байта
Дерево - бумага
Рыба - еда
Вода - питьё
Кислород - воздух
Новосибирск и (красноярск и хабаровск или норильск)
570-436=134
1) (1 => 0) => 1 = 1
2) 1 => (0 => 1) = 1
Удачи)