Паскаль var m, k, i; integer; mas; array [1..10] of integer; begin mas[1]: =14; mas[2]: =44; mas[3]=72; mas [4]: =36; mas[5]: =58; mas[6]: =57; mas[7]: =48; mas[8]: =91; mas[9]: =62; mas[10]: =45; k: =0 for i: =1 to 10 do if (m> 5) and (m mod 2< > 0) then k: =k+m else if m mod 2=0then k: =k+m end; write(k) end.
