var
A: array [1..5] of Integer;
i, c, nc: Integer;
begin
c := 0;
nc := 0;
Randomize;
for i := 1 to 5 do begin
A [i] := Random (10);
WriteLn (i, ': ', A [i]);
if A [i] mod 2 = 0 then
c := c + 1
else
nc := nc + 1;
end;
if c > nc then
WriteLn ('четных элементов больше')
else if nc > c then
WriteLn ('нечетных элементов больше')
else if nc = c then
WriteLn ('четных и нечетных элементов равное количество');
ReadLn;
end.
// Условие: "nc = c" написано "для надежности", такого быть не должно, так как количество элементов нечетно
1) процессы монтажа теплотехнического оборудования;
2) систему работы котельных на различные видах топлива;
3) организацию ремонтных работ тепловых сетей;
4) основы проектирования котельных и тепловых сетей;
5)процессы реконструкции тепловых сетей;
6) основные положения действующей нормативной документации по профилю специальности;
7) технологию производства, транспорта и использования тепловой энергии;
8) устройство, принцип действия, теплотехнические и эксплуатационные характеристики основного и вс теплотехнического оборудования;
9) методы расчеты тепловых схем;
и средства измерения автоматизации тепловых процессов; методы обнаружения и устранения дефектов в работе установок и оборудования.
var
A: array [1..5] of Integer;
i, c, nc: Integer;
begin
c := 0;
nc := 0;
Randomize;
for i := 1 to 5 do begin
A [i] := Random (10);
WriteLn (i, ': ', A [i]);
if A [i] mod 2 = 0 then
c := c + 1
else
nc := nc + 1;
end;
if c > nc then
WriteLn ('четных элементов больше')
else if nc > c then
WriteLn ('нечетных элементов больше')
else if nc = c then
WriteLn ('четных и нечетных элементов равное количество');
ReadLn;
end.
// Условие: "nc = c" написано "для надежности", такого быть не должно, так как количество элементов нечетно
1) процессы монтажа теплотехнического оборудования;
2) систему работы котельных на различные видах топлива;
3) организацию ремонтных работ тепловых сетей;
4) основы проектирования котельных и тепловых сетей;
5)процессы реконструкции тепловых сетей;
6) основные положения действующей нормативной документации по профилю специальности;
7) технологию производства, транспорта и использования тепловой энергии;
8) устройство, принцип действия, теплотехнические и эксплуатационные характеристики основного и вс теплотехнического оборудования;
9) методы расчеты тепловых схем;
и средства измерения автоматизации тепловых процессов; методы обнаружения и устранения дефектов в работе установок и оборудования.