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

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) < 6 THEN
 m = m + Lose(t)
 ENDIF
 NEXT t
 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] < 6 then
        begin
           m := m + Lose[t];
       end;
    writeln(m);
 End.

  алг
   нач
    цел­таб 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] < 6 то
            m := m + Lose[t]
        все
    кц
    вывод m
 кон

#include <iostream>
using namespacestd;
int main() {
    int Lose[10] = {1, 5, 3, 6, 7, 12, 1, 3, 3, 1};
    int m = 0;
    for (int t = 0; t < 10; t++)
        if (Lose[t] < 6) m = m + Lose[t];
    cout << m;
    return 0;
}