Задание

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

Алгоритмический язык

алг

нач

цел­таб Lose[1:10]

цел t, m

Lose[1] := 1; Lose[2] := 5

Lose[3] := 3; Lose[4] := 6

Lose[5] := 7; Lose[6] := 12

Lose[7] := 1; Lose[8] := 3

Lose[9] := 3; Lose[10] := 1

m := 0

нц для t от 1 до 10

если Lose[t] > 3 то

m := m + Lose[t]

все

кц

вывод m

кон

Бейсик

DIM Lose(10) AS INTEGER

DIM t,m AS INTEGER

Lose(1) = 1: Lose(2) = 5

Lose(3) = 3: Lose(4) = 6

Lose(5) = 7: Lose(6) = 12

Lose(7) = 1: Lose(8) = 3

Lose(9) = 3: Lose(10) = 1

m = 0

FOR t = 1 TO 10

IF Lose(t) > 3 THEN

m = m + Lose(t)

END IF

NEXT k

PRINT m

Паскаль

Var t, m: integer;

Lose: array[1..10] of integer;

Begin

Lose[1] := 1; Lose[2] := 5;

Lose[3] := 3; Lose[4] := 6;

Lose[5] := 7; Lose[6] := 12;

Lose[7] := 1; Lose[8] := 3;

Lose[9] := 3; Lose[10] := 1;

m := 0;

For t := 1 to 10 Do

If Lose[t] > 3 Then

Begin

m := m + Lose[t];

End;

Writeln(m);

End.