1) В целочисленном массиве М размера 9 определитьсумму элементов…

Задача 1varM: array [1… 9] of integer; sum, i: integer; begin writeln ('Massiv: '); Randomize; for i: =1 to 9 do begin M[i]: =random (200) -100; write (M[i], '); end; writeln; for i: =1 to 9 do begin if M[i] > 0 then write (i, '); sum: =sum+M[i]; end; writeln; writeln ('Summa=', sum); readln; end. Задача 2varA: array [1… 7] of integer; sum, i: integer; begin writeln ('Massiv: '); Randomize; for i: =1 to 7 do begin A[i]: =random (20) -10; write (A[i], '); end; writeln; for i: =1 to 7 do begin if A[i] > 3 then sum: =sum+A[i]; if i mod 2 <> 0 then write (A[i], '); end; writeln; writeln ('Summa=', sum); readln; end.