Впаскаль(цикл) последовательно вводится n целых чисел.найти количество отрицательных среди них

Ответ: если я не ошибаюсь, это n деленное на 2

Var m: array[1..30] of longint; schet1,i: longint; begin for i: =1 to 30 do begin read(m[i]); if m[i]< 0 then    inc(schet1); end; writeln(schet1); end.

Відповідь:

uses

Graph;

var

grDriver : Integer;

grMode : Integer;

ErrCode : Integer;

begin

grDriver:=Detect;

InitGraph(grDriver, grMode, '');

Line(180, 130, 270, 130);

Line(180, 130, 180, 160);

Line(270, 130, 270, 160);

{Дуло}

Line(270, 143, 370, 143);

Line(270, 147, 370, 147);

Line(370, 143, 370, 147);

Line(140, 160, 310, 160);

Line(140, 190, 310, 190);

Arc(140, 175, 90, 270, 15);

Arc(310, 175, 270, 90, 15);

Circle(155, 175, 10);

Circle(190, 175, 10);

Circle(225, 175, 10);

Circle(260, 175, 10);

Circle(295, 175, 10);

ReadLn;

CloseGraph;

end.

Пояснення:

Вводи в паскаль ети значения.

Вихідні дані:

Обсяг спожитої електроенергії за розрахунковий період (календарний місяць) – 196 кВт*год.

Тарифи на електричну енергію:

І блок (до 100 кВт∙год. (включно)) – 36,6 коп./кВт∙год;

ІІ блок (понад 100 кВт∙год. до 600 кВт∙год. (включно)) - 63 коп./кВт∙год;

ІІІ блок (понад 600 кВт∙год.) – 140,7 коп./кВт∙год

Вартість спожитої електроенергії за розрахунковий період (календарний місяць) з ПДВ:

100 × 0,366 + 96× 0,63 = 97,08 грн.

За наявності пільги - 50% при нормі пільгового споживання на місяць – 90 кВт*год. розрахунок буде наступним:

вартість обсягу електроенергії в межах І блоку з врахуванням пільги:

90×0,366×0,5 + 10×0,366 + = 20,13 грн;

вартість обсягу електроенергії в межах ІІ блоку:

96×0,63 = 60,48 грн.

Вартість спожитої електроенергії за розрахунковий період (календарний місяць) з ПДВ:

20,13 + 60,48 = 80,61 грн.