Паскаль.двухмерный массив.В массиве B [1..10,1..3] содержатся данные о количестве сотрудников
Паскаль.двухмерный массив.
В массиве B [1..10,1..3] содержатся данные о количестве служащих учреждения.Элементы первой строки означают номер отдела, элементы второй строки количество парней в нем,элементы третьей строчки количество женщин в отделе.Сколько всего сотрудников в учреждении и кого больше: парней или женщин?
Алла Гершгорина
Возможно, не элемены первой строчки, а элементы первого столбца? Ведь судя по объявению массива там столбцов как раз-таки 3
Верстеева
Злата
Написано в задании "строчка"
Semjon Ogladenkov
Вероятно, не элемены первой строки, а элементы первого столбца? Ведь судя по объявению массива там столбцов как раз-таки 3
Роман Видро
Написано в задании "строка"
1 ответ
Кончинин Василий
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 (gigt;bo) then write(' дам больше')
else write(' парней больше');
if (gi=bo) then write(' дам и парней однообразное количество');
end.
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 (gigt;bo) then write(' дам больше')
else write(' парней больше');
if (gi=bo) then write(' дам и парней однообразное количество');
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Облако тегов