Паскаль.двухмерный массив.
10-11 класс
|
В массиве B [1..10,1..3] содержатся данные о количестве сотрудников учреждения.Элементы первой строки обозначают номер отдела, элементы второй строки количество мужчин в нем,элементы третьей строки количество женщин в отделе.Сколько всего сотрудников в учреждении и кого больше: мужчин или женщин?
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(' женщин и мужчин одинаковое количество');
end.
Возможно, не элемены первой строки, а элементы первого столбца? Ведь судя по объявению массива там столбцов как раз-таки 3
Написано в задании "строка"
Другие вопросы из категории
Читайте также
Заполнить двухмерный массив NM [1..5,1..5] константами:
100 101 102 103 104
200 201 202 203 204
300 301 302 303 304
400 401 402 403 404
500 501 502 503 504
массива,сумма индексов которых равна s
есть ли в нем одинаковые соседние элементы.
Пример:
Исходный массив:
4 0 1 2 0 1 3 1 1 0
Заранее огромное спасибо!!!!
Двухмерный массив размером M*N заполнить случайными целыми числами в интервале от -90 до 0. Вывести полученный массив на экран в виде таблицы. Найти количество элементов кратных 4 в последней строке.