Var b:array[1..10,1..3] of integer;
i,j,k,s,gi,bo:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do
for j:=2 to 3 do b[i,j]:=random(30);
k:=1;
for i:=1 to 10 do begin
for j:=1 to 3 do
b[i,1]:=k;
inc(k);
end;
for i:=1 to 10 do begin
for j:=1 to 3 do write(b[i,j]:5);
writeln;
end;
for i:=1 to 10 do
for j:=2 to 3 do
s:=s+b[i,j];
write(' Всего сотрудников в учреждении: ',s);
for i:=1 to 10 do
gi:=gi+b[i,2];
write(' Женщин в учреждении: ',gi);
for i:=1 to 10 do
bo:=bo+b[i,3];
write(' Мужчин в учреждении: ',bo);
if (gi>bo) then write(' женщин больше')
else write(' мужчин больше');
if (gi=bo) then write(' женщин и мужчин одинаковое количество');
<span>end.</span>
A. 1 --- 00012 --- 00103 --- 00114 --- 01005 --- 01016 --- 01107 --- 01118 --- 10009 --- 100110 --- 1010b. 1011 --- 111100 --- 121101 --- 13
1110 --- 14
1111 --- 1510000 --- 1610001 --- 1710010 --- 1810011 --- 1910100 --- 20с. - у какого числа двоичный код --- 10101? --- 21каков двоичный код числа 23? --- 10111d. 32 --- 10000064 --- 1000000
Тебе из будет трудно искать на рабочем столе или в память компьютера, также они будут длинные и название будет показываться не полностью
Блук ,Третья планета системы Медуза ...... и так далее