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