Задание

В таб­ли­це Work хра­нят­ся дан­ные о ко­ли­че­стве заказов, при­ня­тых фир­мой «Алоэ» с пер­во­го по 15 ноября. (Work[1] − число заказов, при­ня­тых 1 ноября, Work[2] − 2 но­яб­ря и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.

Var k, m: integer;

Work: array[1..15] of integer;

Begin

Work[1]:=5; Work[2]:=4; Work[3]:=5; Work[4]:=7; Work[5]:=6;

Work[6]:=12; Work[7]:=7; Work[8]:=3; Work[9]:=9; Work[10]:=7;

Work[11]:=0; Work[12]:=9; Work[13]:=1; Work[14]:=0; Work[15]:=8;

m := 0;

for k := 1 to 15 do

if Work[k] < 7 then m := m + 1;

writeln(m);

End.

11

8

3