Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
1)Дан массив М : 15, 17, 24, 18, 13, 28, 18, 95, 19, 17
Что появиться на экране после выполнения фрагмента программы:
z:=0;
for k:=1 to 10 do if m[k] mod 2 <>0 then z:=z+1;
writeln(z);
2)Дан массив М : 24, 7, 14, 8, 56, 12, 48, 25, 19, 17
Что появиться на экране после выполнения фрагмента программы:
s:=m[1];
for k:=2 to 10 do if m[k]>s then s:=m[k];
writeln(s);

Answer 1

1) 
z = 0
считаем количество нечётных элементов массива
15  (нечётное)   z = 1
17  (нечётное)   z = 2
24     (чётное)   z = 2
18      (чётное)   z = 2
13  (нечётное)   z = 3
28     (чётное)   z = 3
18      (чётное)   z = 3
95 (нечётное)   z = 4
19  (нечётное)   z = 5
17  (нечётное)   z = 6
Ответ: 6

2) 
s = 24 (первому элементу массива)
сравниваем со следующими элементами массива, если элемент больше s присваиваем s значение большего элемента
7 > 24 (нет)
14 > 24 (нет)
8 > 24 (нет)
56 > 24 (да)     s = 56
12 > 56 (нет)
48 > 56 (нет)
25 > 56 (нет)
19 > 56 (нет)
17 > 56 (нет)
Ответ: 56