Question

После выполнения фрагмента программы :
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 принимает значение …

Answer 1

23 (pascalabc. net/WDE/)