Задание

Владелец круп­но­го яб­ло­не­во­го сада в те­че­ние 12 лет за­пи­сы­вал в таб­ли­цу App ко­ли­че­ство со­бран­но­го урожая. (App[1] — ко­ли­че­ство тонн яблок, со­бран­ных за пер­вый год, App[2] — за вто­рой и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на пяти язы­ках программирования.

Var k, m: integer;

App: array[1..12] of integer;

Begin

App[1]:=100; App[2]:=128;

App[3]:=80; App[4]:=99;

App[5]:=120; App[6]:=69;

App[7]:=55; App[8]:=115;

App[9]:=84; App[10]:=111;

App[11]:=59;App[12]:=100;

m := 0;

for k := 1 to 12 do

if App[k] < 80 then

begin

m := m + 1;

end;

m := m + 20;

writeln(m);

End.