Var k, m: integer; Tok: array[1..10] of integer; begin Tok[1] := 10; Tok[2] := 14;  Tok[3] := 15; Tok[4] := 4;  Tok[5] := 12; Tok[6] := 6;  Tok[7] := 3; Tok[8] := 5;  Tok[9] := 5; Tok[10] := 10; m := 0; for k := 1 to 10 Do if Tok[k] > 6 then m := m + 2;   writeln(m); end. Какой результат будет выведен на экран после выполнения программы? ​

10

Объяснение:

Tok[1] = 10

Tok[2] = 14

Tok[3] = 15

Tok[4] = 4

Tok[5] = 12

Tok[6] = 6

Tok[7] = 3

Tok[8] = 5

Tok[9] = 5

Tok[10] = 10

m = 0

для k от 1 до 10 выполнить

если значение элементов массива больше 6 то увеличить переменную m на 2

вывести m

Считаем количество элементов массива больше 6.

Их 5:

Tok[1] = 10

Tok[2] = 14

Tok[3] = 15

Tok[5] = 12

Tok[10] = 10

Т.к. переменная m сначала равна 0, то m = 0 + 2 + 2 + 2 + 2 + 2 = 0 + 2 * 5 = 0 + 10 = 10