Var
res,mas:array[1..100] of real;
k,i:integer;
begin
k:=0;
for i:=1 to 15 do
read(mas[i]);
for i:=1 to 15 do
begin
if mas[i]<0 then
write(mas[i],' ')
else
begin
k:=k+1;
res[k]:=mas[i];
end;
end;
for i:=1 to k do
write(res[i],' ');
<span>end.</span>
16 бит это 2 байта информации.
Для одного изображения можно посчитать кол-во информации:
<span>Для 75-ти обновлений в секунду это будет в 75 раз больше: 1 572 864*75=117 964 800 байт=115 200 КиБ=112,5 МеБ
=)</span>
Может, 5 человек - старше 30 лет, 15 человек - от 20 до 30 лет, 5 человек - моложе 20 лет.
или
Может в том случае, если 10 человек моложе 20 лет, 10 – в возрасте от20 до 30 лет и 5 – старше 30 лет.