10 баллов тому,кто решит
. В таблице Sea хранятся данные о количестве россиян, отдыхавших на Чёрном море (Sea[l] - число россиян в 2001 году, Sea[2] - в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.
Var k, s: integer;
Sea: array[1..12] of integer;
Begin
Sea[1] := 170; Sea [2] := 170;
Sea [3] := 190; Sea [4] := 210;
Sea [5] := 230; Sea [6] := 220;
Sea [7] := 240; Sea [8] := 160;
Sea [9] := 190; Sea [10] := 210;
Sea [11] := 170; Sea [12] :=170;
s := 100;
For k := 1 to 12 do
If Sea [k] > 220 Then Begin
s := s + Sea [k];
End;
Writeln(s);
End.
Ответ:

Заметим, что есть условие, проверяющее, является ли какой-нибудь элемент массива Sea больше 220. Сразу же откидываем все элементы, которые меньше 220: 1, 2, 3, 4, 6 (поскольку 220 не больше 220, а равно), 8, 9, 10, 11, 12. Остаются элементы 5 и 7. После того, как оператор (то, что проверяется) в условии равен истине, выполняется увеличение переменной s на величину элемента массива. У нас прошло через условие лишь два элемента, поэтому, к существующей переменной s, равной 1 мы добавляем 230 (5-й элемент) и 240 (7-й элемент) и получаем:

100 + 230 + 240 = 570

570