После выполнения фрагмента программы :m:=0; for i:=1 to 10 do begin if i mod 3=0 then a[i]:=2*(i-1) else a [ i ]:=-1; m := a [ i ]+ m ; end ; Переменная m принимает значение …

После выполнения фрагмента программы : m:=0; for i:=1 to 10 do begin if i mod 3=0 then a[i]:=2*(i-1) else a [ i ]:=-1; m := a [ i ]+ m ; end ; Переменная m принимает значение …