Размещено 4 года назад по предмету
Информатика
от rahmanovartem79
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. Какой результат будет выведен на экран после выполнения программы?