Паскаль.двухмерный массив.
В массиве B [1..10,1..3] содержатся данные о количестве сотрудников учреждения.Элементы первой строки обозначают номер отдела, элементы второй строки количество мужчин в нем,элементы третьей строки количество женщин в отделе.Сколько всего сотрудников в учреждении и кого больше: мужчин или женщин?

var b:array[1..10,1..3] of integer;i,j,k,s,gi,bo:integer;beginwriteln('Исходный массив: ');for i:=1 to 10 dofor j:=2 to 3 do b[i,j]:=random(30);k:=1;for i:=1 to 10 do beginfor j:=1 to 3 dob[i,1]:=k;inc(k);end;for i:=1 to 10 do beginfor j:=1 to 3 do write(b[i,j]:5);writeln;end;for i:=1 to 10 dofor j:=2 to 3 dos:=s+b[i,j];write(' Всего сотрудников в учреждении: ',s);for i:=1 to 10 dogi:=gi+b[i,2];write(' Женщин в учреждении: ',gi);for i:=1 to 10 dobo:=bo+b[i,3];write(' Мужчин в учреждении: ',bo);if (gi>bo) then write(' женщин больше')else write(' мужчин больше');if (gi=bo) then write(' женщин и мужчин одинаковое количество');end.