Найдите ошибки в программе и запишите правильный ответ. Var k, m: integer; Flow: arrau[1..12] of integer; Begin Flow[ 1 ] := 25; Flow[ 2 ] := 33; Flow[ 3 ] := 45; Flow[ 4 ] := 56; Flow[ 5 ] := 78; Flow[ 6 ] := 112; Flow[ 7 ] := 120; Flow[ 8 ] := 133; Flow[ 9 ] := 97; Flow[ 10 ] := 77; Flow[ 11 ] := 59; Flow[ 12 ] := 34; m = 23; For k := 1 to 12 Do if Flow[k]< 50 Then Began m := m + 1; End; Wrateln(m); End.

Компьютер является практически неотъемлемой частью нашей жизни. Он везде: дома, в школе, на работе. очень хорошо было бы, если бы компьютер будущего имел разум, с ним можно было бы поговорить обо всём, как со своим другом или приятелем. Компьютер был бы без громоздкого системного блока, то есть, что-то похожее на ноутбук. И выполнял бы команды по голосу, понимая всё и всегда. По своего обладателя компьютер мог бы уменьшаться или увеличиваться, в зависимости от желания. Это было бы очень удобно. Идёте вы, например, на улицу погулять, и хотите взять компьютер с собой. А он раз – и уменьшился. Замечательно, не правда ли? Или захотели посмотреть какой-нибудь фильм, а ваш компьютер увеличивается в несколько раз, и вы, получая удовольствие, смотрите фильм на двухметровом экране. А наушники бы выползали сами собой, по . Захотели музыку послушать и в любом месте, в любое время – наушники к вашим услугам, вам остаётся только наслаждаться.

Вот как я представляю себе компьютер будущего. Конечно, многое из этого выполнить невозможно ни сейчас, ни в ближайшее время, а то и вообще никогда.