Какой из факторов не является фактором обстановки? дайте единственно верный ответ. –нтп; –уровень первичного спроса; –принятая технология работ на предприятии; –условия материально-технического обеспечения предприятия.
var mas: array [1..5, 1..6] of integer; mas_od: array[1..6] of integer; i, j: integer;
begin randomize; for i := 1 to 5 do for j := 1 to 6 do mas[i, j] := random(10)-5;
for i := 1 to 5 do begin for j := 1 to 6 do write(mas[i, j]:4); writeln; end; writeln(''); for i := 1 to 5 do begin mas_od[i] := 1; for j := 1 to 6 do begin if((mas [i, j] mod 2 = 0) and (mas[i, j] > 0)) then mas_od[i] := mas_od[i] * mas[i, j]; end; end; for i:=1 to 6 do write(mas_od[i]:4); writeln; end.
Эта задача в три действия: Первое, мы должны узнать, сколько изготавливает деталей ученик за один час (путем отнимания). Второе, мы должны узнать, сколько сколько изготавливает деталей мастер и ученик за один час. Третье, мы должны узнать конечный итог, сколько деталей делают ученик и мастер за три часа. 1. 15-6=9 (деталей) - столько деталей делает ученик в час. 2. 15+9=24 (деталей) - столько деталей мастер и ученик делают за один час. 3. 24*3=72 (деталей) - столько деталей мастер и ученик делают за три часа. ОТВЕТ: 72 детали.
uses
crt;
var
mas: array [1..5, 1..6] of integer;
mas_od: array[1..6] of integer;
i, j: integer;
begin
randomize;
for i := 1 to 5 do
for j := 1 to 6 do
mas[i, j] := random(10)-5;
for i := 1 to 5 do
begin
for j := 1 to 6 do
write(mas[i, j]:4);
writeln;
end;
writeln('');
for i := 1 to 5 do
begin
mas_od[i] := 1;
for j := 1 to 6 do
begin
if((mas [i, j] mod 2 = 0) and (mas[i, j] > 0)) then
mas_od[i] := mas_od[i] * mas[i, j];
end;
end;
for i:=1 to 6 do write(mas_od[i]:4);
writeln;
end.