Uses crt; const N=30; var a:array [1..N] of integer; i,sum,k:integer; sr:real; begin for i:=1 to N do begin readln(a[i]); sum:=sum+a[i]; end; sr:=sum/N; for i:=1 to N do if a[i]<sr then inc(k); writeln(k); end.
Решение:Разделим число 513 на два ( 2 - это основание системы счисления). Делить будем с остатком, частное запишем в столбец "Част.", а остаток в столбец "Ост.". Затем полученное частное снова разделим на два и новое частное и остаток также распределим по столбцам (см. ниже). Повторять деление будем до тех пор, пока последнее частное не окажется меньше двух.Част.Ост.513 : 2 =256 1256 : 2 =128 0128 : 2 =64 064 : 2 =32 032 : 2 =16 016 : 2 =8 08 : 2 =4 04 : 2 =2 02 : 2 =1 0Теперь мы можем записать число 513 в двоичной системе счисления. Для этого в старший (самый левый) разряд числа запишем последнее частное (выделено жирным), а в следующие, по порядку, разряды запишем все полученные выше остатки, беря их снизу вверх. То есть, в самом младшем разряде оказывается самый верхний остаток.ответ: 51310 = 10000000012
const N=30;
var a:array [1..N] of integer;
i,sum,k:integer;
sr:real;
begin
for i:=1 to N do
begin
readln(a[i]);
sum:=sum+a[i];
end;
sr:=sum/N;
for i:=1 to N do
if a[i]<sr then inc(k);
writeln(k);
end.