Подготовка к практической с19-23 ноября

1.      Подсчитать сумму чисел	for i:=1 to 5 do Sum:=Sum+h[i];
2.      Подсчитать сумму четных чисел	for i:=1 to 5 do   if h[i] mod 2 = 0 then Sum:=Sum+h[i];
3.      Увеличить каждый элемент массива на 7	for i:=1 to 5 do h[i]:=h[i]+7 ;
4.      Подсчитать сумму положительных чисел	for i:=1 to 5 do if  h[i] >0  then Sum:=Sum+h[i];
5.      Подсчитать сумму чисел, больших 150	for i:=1 to 5 do if  h[i] >150  then Sum:=Sum+h[i];
6.      Подсчитать количество нечетных чисел	for i:=1 to 5 do   if h[i] mod 2 = 1 then k:=k+1
7.      Подсчитать количество четных чисел  и больших 5	for i:=1 to 5 do   if (h[i] mod 2 = 0) and ( h[i] >0)   then k:=k+1
8.      Подсчитать количество четных чисел  и больших 10	for i:=1 to 5 do   if (h[i] mod 2 = 0) ( h[i] >0)  then k:=k+1
Задача о нахождении максимального элемента стр53